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INT-^OOUCTION 


THE  computet  CENTEP  MAKES  AVAILA0LE.  IM  AOOITION  TO 

opfpating  system,  a wide  vapiety  of  both  scientific 

PPOGPAMS,  SUBPPOGPAMS  AN3  CATALOGUED  PROCEDURES.  MOST  OF 

APF  maintaineo  in  libraries  cn  permanent  files  ano  may 

THE  APPROPRIATE  (LOADER)  CONTROL  CAROS.  A FEW  PROGRAMS 
AS  independent  pepmanent  files. 


THE  N0S/8E 
AND  UTILITY 
THE  ROUTINES 
BE  INVOKED  BY 
ARE  AVAILABLE 


THE  COLIB-SERIES  OF  MANUALS 
the  CONTENTS  OF  THE  VAPIOUS 
CFNTFPI 


CONTAINS  THE  FOLLOWING,  WHICH  DESCRIBE 
LIBRARIES  MAINTAINED  BY  THE  COMPUTER 


CCLTB 

rCLIB/N 

CCLI9/P 

CCLI3/U 

CCLTB/M 


computer 

COMPUTER 

COMPUTER 

COMPUTER 

COMPUTER 


CENTER  L18TAPIES 

CENTfR  LI3RARIES/MSROC  (SUBPROGRAMS) 
CENTER  LIBRAPIES/pROFIL  (PROCEDURES) 
CENTER  LIBRARIES/JT ILITY  (PROGRAMS) 
center  LIBRAPIES/MNSROC  (PROGRAMS) 


CMLD-77-12 

CMLD-77-15 

CMLD-77-16 

CMLD-77-17 


THIS  manual,  CCLIB/N,  is  A REFERENCE  MANUAL 
THF  subprograms  in  library  *NSR0C*. 


WHICH  DESCRIBES  MOST  OF 


HOW  TO  USE  THIS  MANUAL 

THF  routines  are  classified  in  one  or  more  functional  CATEGORIES 
(SFE  page  1-2  FOR  A list  OF  CATFGORIE3).  THEY  ARE  LISTED,  BEGINNING  ON 
PAGE  1-S,  UNDER  THE  VARTOUS  CATEGORIES.  THE  INOIVIOUAL  ROUTINES  ARE 
LISTFD,  WITH  DESCRIPTIVE  TITLE,  BEGINNING  ON  PAGE  1-8.  CHAPTER  2 
CONTAINS  all  CURRENTLY  AVAILABLE  MACHINE-READABLE  DOCUMENTS  DESCRIBING 
the  use  of  subprograms  in  library  »NSR0C*.  DOCUMENTATION  NOT  IN 
CHAPTER  ? MAY  BE  OBTAINEO  FROM  USER  SERVICES,  CARDEROCK,  BLOG  17,  ROOM 
101,  (202)  227-1007. 


LIBRARY  NSRDC  *** 

•NSPOC*  IS  A LIBRARY  OF  DTNSROC  WRITTEN  AND/OR  SUPPORTED 
subprograms.  SUBROUTINES  FQPMFRLY  AVAILABLE  ONLY  ON  TAPE  CL  I B RA RY UPD 3 
AOE  INCLUDED.  MANY  SUBROUTINES  HAVE  NEVER  BEEN  PART  OF  ANY  OTHER 
LIBRARY.  THFSE  ROUTINES  ARE  USED  PRIMARILY  WITH  FTN,  MNF  OR  RATFOR 
programs  and  most  are  COOEO  IN  FTN, 


USING  THE  LIBRARY  ••• 

THF  FOLLOWING  CONTROL  CARDS  MAY  BE  USED  TO  ACCESS  'NSRDC*  DURING 
the  loading  of  a PROGRAMI 


FTN.  -OR-  COBOL. 
ATTACH, NSROC. 
LOSET,LIB=NSRDn. 

LGO. 


-OR-  ATTACH, LGO, MYLG0,I0=X)<XX. 
-OR-  LIBRARY, NSROC. 
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***  FUNCTIONAL  CATE50»IES 

THF  FOLLOWING  FUNCTIONAL  CATEGORIES  ARE  USED  AT  OTNSROC.  THOSE 
CATEGORIES  PRECEOEO  9Y  AN  ASTERISK  (*»  ARE  LOCAL  DTNSROC  CATEGORIES. 

THE  other  are  from  THE  VIM  <COC  USERS  GROUP»  LIST. 

AG  ARITHMETIC  ROUTINES 
A1  REAL  NUMBERS 
A2  COMPLEX  NUMBERS 
A5  DECIMAL 
A4  I/O  ROUTINES 

•’O  ELEMENTARY  FUNCTIONS 
B1  TRIGONOMETRIC 
B2  HYPERBOLIC 

B3  EXPONENTIAL  AND  LOGARITHMIC 
84  ROOTS  AND  POWERS 

CO  POLYNOMIALS  AND  SPECIAL  FUNCTIONS 
Cl  EVALUATION  OF  POLYNOMIALS 
C2  ROOTS  OF  POLYNOMIALS 

CT  evaluation  of  SPECIAL  FUNCTIONS  (NON-STATISTICAL) 

C4  SIMULTANEOUS  NON-LINEAR  ALGEBRAIC  EQUATIONS 
C5  SIMULTANEOUS  TRANSCENDENTAL  EQUATIONS 

* C6  ROOTS  OF  FUNCTIONS 

no  OPERATIONS  ON  FUNCTIONS  ANO  SOLUTIONS  OF  DIFFERENTIAL  EQUATIONS 
01  NUMERICAL  INTEGRATION 

1 02  numerical  SOLUTIONS  OF  ORDINARY  DIFFERENTIAL  EQUATIONS 

I 03  numerical  solutions  of  partial  DIFFERENTIAL  EQUATIONS 

[ 04  numerical  differentiation 

I 

ED  INTERPOLATION  ANO  APPROXIMATIONS 
El  table  look-up  ANO  INTERPOLATION 
E2  curve  FITTING 
E3  SMOOTHING 

E4  MINIMIZING  OR  MAXIMIZING  A FUNCTION 

FG  OPERATIONS  ON  MATRICES,  VECTORS  I SIMULTANEOUS  LINEAR  EQUATIONS 
FI  VECTOR  ANO  MATRIX  OPERATIONS 
F2  EIGENVALUES  ANO  EIGENVECTORS 
F3  DETERMINANTS 

I F4  simultaneous  linear  equations 

GO  statistical  analysis  ANO  PROBABILITY 

Gl  DATA  REDUCTION  (COMMON  STATISTICAL  PARAMETERS) 

G2  correlation  ANO  REGRESSION  ANALYSIS 
G3  SEQUENTIAL  ANALYSIS 
G4  analysis  of  VARIANCE 
GS  TIME  SFRIES 

GB  SPECIAL  FUNCTIONS  (INCLUDES  RANDOM  NUMBERS  ANO  PDF'S) 

* G7  multivariate  ANALYSIS  ANO  SCALE  STATISTICS 

* GB  NON-PARAMETPIC  METHODS  ANO  STATISTICAL  TESTS 

I • G9  statistical  INFERENCE 

I 


L 
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HO  OPERATIONS  RESEARCH  TECHNIQUES,  SIMULATION  i MANAGEMENT  SCIENCE 

HI  LINEAR  PROGRAMMING 

H2  NON-LINEAR  PROGRAMMING 

H3  TRANSPORTATION  AND  NETWORK  COOES 

H4  SIMULATION  MODELING 

H9  SIMULATION  MODELS 

H6  CRITICAL  PATH  PROGRAMS 

H8  AUXILIAR>  PROGRAMS 

H9  COMBINED 

10  INPUT 

11  BINARY 
I?  OCTAL 

13  DECIMAL 

14  BCD  (HOLLERITH) 

19  COMPOSITE 

JO  OUTPUT 
J1  BINARY 
J2  OCTAL 
J3  decimal 
J4  BCD  (HOLLERITH) 

JS  PLOTTING 
J7  analog 
J9  COMPOSITE 

KO  INTERNAL  INFORMATION  TRANSFER 

K1  external-to-external 

K2  INTERNAL-TO-INTERNAL  (RELOCATION) 

K3  DISK 
K4  TAPE 

K9  DIRECT  DATA  DEVICES 

LO  EXECUTIVE  ROUTINES 
LI  ASSEMBLY 

I?  compiling 

L3  MONITORING 
L4  PREPROCESSING 

L5  DISASSEMBLY  AND  DEREL AT  I VIZ  IMS 
L6  RELATIVIZING 

L7  COMPUTER  LANGUAGE  TRANSLATORS 


MO  DATA  HANDLING 
Ml  SORTING 

M2  CONVERSION  AND/OR  SCALING 
H3  MERGING 

M4  CHARACTER  MANIPULATION 
M5  SEARCHING,  SEEKING,  LOCATING 
M6  REPORT  GENERATORS 
M9  COMPOSITE 

NO  DEBUGGING 
N1  TRACING  AND  TRAPPING 
N2  DUMPING 

N3  MEMORY  VERIFICATION  AND  SEARCHING 
N4  BREAKPOINT  PRINTING 
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00  SIMULATION  OF  COMPUTERS  ANO  DATA  PROCESSORS  (INTERPRETERS) 

01  OFF-LINE  EQUIPMENT  (LISTERS,  REPRODUCERS,  ETC.) 

OS  COMPUTERS 

04  PSEUDO-COMPUTERS 

05  software  simulation  of  peripherals 

09  COMPOSITE 

PO  diagnostics  (HARDWARE  MALEJNCTION) 

O SERVICE  OR  HOUSEKEEPING,  PROGRAMMING  AIDS 

Qi  clear/reset 

02  CHECKSUM  ACCUMULATION  AND  CORRECTION 

QS  REWIND,  TAPE  MARK,  LOAD  CARDS,  LOAD  TAPE  PROGRAMS,  ETC. 

04  internal  HOUSEKEEPING,  SAVE,  RESTORE,  ETC. 

GS  REPORT  GENERATOR  SUBROUTINES 

06  PoqGRAM  DOCUMENTATION!  FLOW  CHARTS,  DOCUMENT,  STANDARDIZATION 

07  p->ogram  library  utilities 

RO  LOGIC  and  SYMBOLIC 
fil  FORMAL  LOGIC 
R2  SY'^BOL  manipulation 
RT  i-TST  AND  STRING  PROCESSING 

nfopmation  retrieval 

ligations  and  application-oriented  programs 

“HYSICS  (INCLUDING  NUCLEAR) 

T2  CHEMISTRY 

TT  other  physical  SCIENCES  (GEOLOGY,  ASTRONOMY,  ETC.) 

T4  ENGINEERING 
T6  BUSINESS  data  PROCESSING 

T6  manufacturing  (NON-OATA)  PROCESSING  AND  PROCESS  CONTROL 
T7  mathematics  and  APPLIED  MATHEMATICS 
T9  SOCIAL  AND  BEHAVIORAL  SCIENCES  AND  PSYCHOLOGY 
T9  BIOLOGICAL  SCIENCES 

TIO  REGIONAL  SCIENCES  (GEOGRAPHY,  URBAN  PLANNING) 

Til  COMPUTER  ASSISTED  INSTRUCTION 

UO  LINGUISTICS  AND  LANGUAGES 

VO  GENERAL  PURPOSE  UTILITY  SUBROUTINES 
VI  RANDOM  number  GENERATORS 

V2  COMBINATORIAL  GENERATORS!  PERMUTATIONS,  COMBINATIONS  S.  SUBSETS 
VT  STANDARD  AND  SPECIAL  PROBLEMS 

)(0  DATA  REDUCTION 

XI  RF-FORMATTING,  DECOMMUTATION,  ERROR  DIAGNOSIS 
X?  EDITING 
XI  CALIBRATION 

X4  evaluation 

X6  ANALYSIS  (TIME-SERIFS  ANALYSIS) 

X6  SIMULATION  (GENERATE  TEST  DATA  FOR  DATA  REDUCTION  SYSTEM) 

YO  INSTALLATION  MODIFICATION 

VI  INSTALLATION  MODIFICATION  LIBRARY 

Y2  NEHPL  TA»F  OF  INSTALLATION  MODIFICATIONS 

70  ALL  OTHERS 
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LIST  OF 

SUBPROGRAMS  BY  CATEGORY 

♦ ♦♦ 

the  subprograms  IN  LIBRARY  'NSRDC*  ARE  LISTED 
functional  categories.  an  alphabetical  LIST,  WITH 
OF  EACH  ROUTINE  BEGINS  ON  PAGE  1-A. 

BELOW 

A BRIEF 

AO  arithmetic  ROUTINES 

ICOMN  XOR 

A1  RFAL  NUH3FR5 

ISUMIT  NEILL 

SUMIT 

A2  COMPLFX  NUMBERS 

CMPINY  HELP 

PSI 

Bi  TRiGONonrri^iG 
COTflN 

B«*  ROOTS  4NO  POWF^S 

CPPOOT  PPOOT 


ni  FVaLUATION  OF  POLYNOMIALS 


APOWR 

BPOWR 

HIFAC 
POLOI  V 

POWRl 

POWRZ 

“R0D2 

C? 

ROOTS  OF  POLYNOMIALS 
DPROOT  HELP 

NROOTS 

PROOT 

QUART 

C3 

EVALUATION  OF 
AT 

BEJYO 

BE  JYl 
BESSI 

SPECIAL 

3ESSJ 

BFSSK 

BESSY 

BSJ 

FUNCTIONS 
CBSE 
CFI3 
COM  3ES 
ELLI 

(NON-STATIS 

ELLIP 

ERF 

ERROR 

EXPINT 

TICAL) 

FRESNEL 

GAMCAR 

GAMMA 

LOGGAM 

OF 

PQOTS  OF  FUNCTIONS 
ROOTER 

01 

NUMERICAL  INTEGRATION 
EG I FN0L3 

QUADG 

SIMP 

SIMPUN 

D? 

NUMERICAL  SOL 
FN0L3 

UTIONS  OF 
<UTMER 

ORDINARY 

OIFPERENTI A 

L EQUATIONS 

FI 

table  look-jp 
CROTAB 

ANH  Interpolation 

OISCOT  FRMPAN 

FRMRA2 

r? 

CURVE  fitting 

fet 

FET5 

GMHAS 

LSDSUB 

OPLSA 

POLYN 

RFFT 

RFSN 

SPLFIT 

SOFIT 

FT 

SMOOTHING 

smooth 

E4 

minimizing  or 

MAXIMIZING  A function 

MINHAX 


UNDER  THEIR 
DESCRIPTION 


PSI 

SNCNON 


XFIL 
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FI 

VFCTOP  AND  NATPIX  OPFPATIONS 

MAT  INS 

P? 

EIGENVALUES  AND  EIGENVECTORS 

VARAHl  VARAH? 

F^ 

OETERMTNANTS 

GAUSS  MATINS 

F4 

simultaneous  LINEAR  EQUATIONS 

3MAM  CMPINV  mam 

CGAUSS  GAUSS  MAM?00 

MATINS 

Gl 

DATA  REOUCTION  (COMMON  STATISTICAL 
STUTEE 

PARAMETERS) 

G4 

ANALYSIS  OF  VARIANCE 

ANOVAl  ANOVA2 

G6 

SPECIAL  FUNCTIONS  (INCLUDES  RANDOM 
lAOC  lOAYMEK  RANNUM 

NUMBERS 

AND  PDF'S) 

10 

INPUT 

fastin 

12 

octal 

OFMTOE  OFMTV 

13 

OECI MAL 

CROTAB 

14 

BCD  (HOLLERITH) 

ICOM  ICOMN  IFMTV 

IP 

COMPOSITE 

RECOVRO 

J2 

OCTAL 

PRTEL 

J4 

on  (HOLLERITH) 

9ANR  ICOM  ICOMN 

LINE6 

LINE8 

J6 

PLOTTING 

PLOTMY  PLOTPR  PLOTKY 

<2 

INTFPNAL-TO-INTERNAL  (RELOCATION) 

6FTPA  MFETGH  HSET 
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MO 

DATA  HANOLING 

COM^’STR 

EQU60 

MASKIT 

Ml 

SORTING 

ASORT 

QSORT 

SSORT 

SSORTI 

ASORTM/ 

QSORTl 

SSORTF 

SSORTL 

M2 

CONVERSION  and/or  SCALING 

GETHOUR 

IROMAN 

JGDATE 

MONTH 

HEKDAY 

IHMS 

ISEC 

JULIAN 

NEHLAT 

M4 

CHARACTER  MANIPULATION 

AOJL 

EXPRM 

IBUNP 

PUTCHA 

S3YT 

TRAILBZ 

AOJR 

EXTBIT 

IPAKLFT 

PUTCHR 

SEMICO 

VAuDAT 

ASHIFT 

EXTPRM 

ISTAPE 

REPLAC 

SENT 

vfill 

CENTER 

FBINRO 

LBYT 

REPLACM 

SETREW 

ZBLANK 

CHFILL 

GETCHA 

LEFTADJ 

REPLHI 

SHIFTA 

ZEROES 

contrct 

GETCHR 

MOVSTR 

REPLLO 

. KWEZL 

ZEROFL 

expand 

GETPRM 

PARGET 

REPLNE 

SKWEZR 

ZEROS 

M5 

searching,  seek 

:ING,  locating 

AMAXE 

FINOW 

GETCHR 

LASTC 

mine 

VALID! 

AMINE 

FINOrfRO 

IDIGTT 

LASTWRO 

NFIlLT 

FINOC 

GETCHA 

IFINDCH 

MAXE 

NUMVAR 

NO 

DEBUGGING 

ALTIME 

ELTIME 

PR,  ■"ME 

N2 

dumping 

OMPA 

DMPFIT 

DUMPCPA 

DUMPFL 

'^MPCPA 

DU“  ■•A 

OUMH'^I  f 

■'ECOVRD 

QO 

SERVICE  OR  HOUSEKEEPING 

, programming  AIDS 

AC 

ftnrfl 

HERE 

JOB^-RG 

PFRC 

ZPFP  'T 

ALTIME 

GETFIT 

IPID 

MACHINE 

pRT -L 

ZRTPJT 

CPU467 

3ETLPN5 

I5ITCNF 

NUMEXEC 

REDUCL 

<^LT'ME 

GDORDP 

J03NAME 

^ VLNAME 

SKPSTAT 

OT 

FILE  MANIPULATION 

REQUEST 

ROUTE 

SKPFIL 

UNLOAD 

Z^FUNC 

ZSYSEO 

04 

INTFRNAL  HOUSEKEEPING, 

SAVE,  RESTORE,  ETC. 

NUMVflR  PRTIME 

R1  F0P>1ftL  LOGIC 

COUPLE  XOR 

T4  ENGINEERING 
ARDCFT 

RANDOM  NUMBER  GENERATORS 
RANNUM 
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ac 

ao 


aa 


ai 

ai 

aM 

aw 

aN 

aN 

ap 

AR 

as 

as 

as 

3a 

3E 

3F 

3E 

BE 

BE 

BE 

BM 

BP 


OESCRIPTIVE  TITLES 

S'JBP^OG-AMS  IN  LIBRARY  'NSPr'S*  ARE  LISTED  A LPHA  BET  IC  A LL  Y 3EL3W. 

GET  aCDOUNT  NUMBER  FOR  THIS  JOB 

JL  LER’-  ADJUST  A LINE  OF  WORDS  LEAVING  ONE  SPACE  BETWEEN  WORDS 

JR  RIGHT  ADJUST  A LINE  OF  WORDS  LEAVING  ONE  SPACE  BETWEEN  WORDS 

AIRY  FUNCTION  INTEGRBL 

TIME  OBTAIN  CPa,  CP3,  CP,  PP,  10  AND  HALL  CLOCK  TIMES  SINCE  START 
OF  JOB  «0R  INTERCOM  SESSION) 

aXE  FIND  MAXIMUM  VALUE  OF  AN  ARRAY  (ALSO  CONTAINS  MAKE) 

INF  FIND  MINIMUM  VALUE  OF  AN  ARRAY  (ALSO  CONTAINS  MINE) 

OVAl  ONE-WAY  ANALYSIS  OF  VARIANCE  WITH  UNEQUAL  N 

CVAE  TWO-WAY  ANALYSIS  OF  VARIANCE  WITH  EQUAL  N 

OWR  EXPONENTIATION  OF  POWER  SERIES  - ONE  VARIABLE 

DCFT  PROPERITRS  OF  J.S.  STANDARD  ATMOSPHERE  (1962) 

HIFT  SHIFT  EACH  WORD  OF  AN  ARRAY 

ORT  FTN  ALPHANUMERIC  SORT 

ORTMV  SORT  2-OIMENSIONAL  ARRAY  USING  MOVLEV 

NP  PRINT  A BANNER  (PAGE) 

JYO  ZERO-OROER  BESSEL  FUNCTIONS  FOR  REAL  ARGUMENTS 

JYl  FIRST  ORDER  BESSEL  FUNCTIONS  FOR  RFAL  ARGUMENTS 

SSI  MODIFIED  BESSEL  FUNCTION  OF  THE  FIRST  KIND 

SSJ  BESSEL  FUNCTION  OF  THE  FIRST  KINO 

SSK  MODIFIED  BESSEL  FUNCTION  OF  THE  SECOND  KIND 

SSY  BESSEL  FUNCTION  OF  THE  SECOND  KINO 

AN  SOLVE  SYSTEM  AX=B  FOR  BANDED  SYMMETRIC  MATRICES 

OWR  EXPONENTIATION  OF  POWFR  SERIES  IN  TWO  VARIABLES 


1 


aiJG  19/7  page  1-9 

9SJ  SPHERIGAL  9ESSEL  FUNCTION 

COSE  complex  9ESSEL  ^UNCTION  FOR  LARGE  ARGUMENT 

CEI3  COMPLETE  ELLIPTIC  INTEGRAL  OF  THE  THIRD  KIND 

CENTER  CENTER  A CHARACTER  STRING  WITHIN  AN  OUTPUT  FIELD 

CGAUSS  COMPLEX  SOLUTION  0“^  SIMULTANEOUS  EQUATIONS  AnO  OETERMINANT  BY 

ITERATIVE  GAUSSIAN  ELIMINTAION 

CHFILL  FILL  (PORTION  OF)  AN  ARRAY  WITH  A CHARACTER 

CMPINV  COMPLEX  MATRIX  INVERSION 

COMBES  BES'^EL  FUNCTIONS  FOR  COMPLEX  ARGUMENT  AND  ORDER 
COMPCTP  COMPARE  TWO  CHARACTER  STRINGS 

CONTRCT  SQUEEZE  ARRAY  OF  IR-FORMAT  CHARACTERS  TO  LEFT  (SEE  EXPAND) 

COTAN  COTANGENT  FUNCTION 

COUCLE  LOGICALLY  CONNECT  TWO  WORDS 

CPDTAB  READ  TABLES  FOR  FPMPAN  AND  FRMRA2  INTERPOLATION 

OISCOT  SINGLE  OR  DOUBLE  INTERPOLATION 

DMPA  CALLABLE  OCTAL  AND  CHARACTER  DUMP  OF  SPECIFIED  PORTION  OF 

USFR'S  FIELD  LENGTH  (FL)  (BY  ACTUAL  LOCATION)  (NO  HEADINGS 
APE  PROVIDED) 

OMPCPA  OUMP  JOB  CONTROL  POINT  AREA 

OMPFIT  SHORT  DUMP  OF  FTN  OR  PM  FILE  INFORMATION  TABLE  (FIT) 

OPPOOT  FIND  ALL  ROOTS  OF  A REAL  DOUBLE  PRECISION  POLYNOMIAL 
OUMPA  GIVE  OCTAL  AND  CHARACTER  DUMP  OF  USER-SPECIFIED  AREA 

DUMPCPA  EXPANOEO  OUMP  OF  JOB  CONTROL  POINT  AREA 

OUMPFIT  DETAILED  DUMP  OF  FTN  OR  RM  FILE  INFORMATION  TABLE  (FIT) 

nUMPFL  CALLABLE  OCTAL  ANO  CHARACTER  OUMP  OF  SPECIFIED  PORTION  OF 
USER'S  FIELO  LENGTH  (FL)  (BY  ACTUAL  LOCATION) 

ELLI  ELLIPTIC  integral 

ELIIP  ELLIPTIC  INTEGRAL 
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eltthe 

EOUGO 

EPF 

PPPCR 

expang 

PXPTNT 

FXPPP 

EXTBIT 

FXTPRM 

FBSTIN 

FBTNPG 

FFT 

FFTB 

FGI 

FTNOr 

'•TNr  I 

FINOWRO 

FNOL  3 

FRESNEL 

FRMPAN 

FRM-az 

FTNRFL 

GaMCAR 


'I 


obtain  CPA,  CPB,  CP,  PP,  10  ANO  HALL  CLOCK  TIMES  SINCE  LAST 
CALL  TO  EITIME 

LOGICAL  COMPAPE  (OF  2 ARRAYS) 

ERROR  FUNCTION 
ERROR  FUNCTION 

EXPANO  character  STRING  INTO  ARRAY  OF  IR-FORMAT  WORDS  (SEE 
CONTRCT) 

EXPONENTIAL  INTEGRAL 

EXTRACT  NEXT  PARAMETER  FROM  EXECUTE  CARO 
EXTRACT  BITS  FROM  A HCRO 

EXTRACT  NEXT  PARAMETER  FROM  USER-SUPPLIED  PARAMETER  STRING 

READ  ANO  UNPACK  DATA  PREPARED  ON  THE  XDS-BIO  A/O  CONVERSION 
SYSTEM 

UNPACK  an  input  ARRAY  (N  BITS  PER  INPUT  CHARACTER  INTO  COC 
WORD) 

FAST  FOURIER  TRANSFORM  FOR  COMPLEX  TABULATED  FUNCTION 
FAST  FOURIER  TRANSFORM 
FORTRAN  GAUSSIAN  INTEGRATION 

FIND  PRESENCE  OR  ABSENCE  OF  SPECIFIED  CHARACTER  IN  AM  ARRAY 
(USEP  CPECIFIES  RELATIONAL  OPERAND) 

FIND  PRESENCE  OR  ABSENCE  OF  SPECIFIED  WORD  IN  AN  ARRAY  (USER 
SPECIFIES  RELATIONAL  '-'»ERANO) 

FIND  SPECIFIED  WORD  IN  AN  ARRAY 

INTEGRATE  SYSTEM  OF  ORDINARY  DIFFERENTIAL  EOUATIONS 
EVALUATE  FRESNEL  INTEGRALS 

LINEAR  TABLE  INTERPOLATION  (ONE  OR  TWO  INDEPENDENT  VARIABLES) 
LINEAR  TABLE  INTERPOLATION  (MULTIPLE  INDEPENDENT  VARIABLES) 
GET/SET  CORE  SIZE 

complex  gamma  function  df  a complex  argument  having  positive 

REAL  PART 


GA  MMA 


INCOMPLETE  OR  COMPLETE  GAMMA  FUNCTION 
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AUG 

GAUSS 

GETCHA 

GFTCHR 

GETFIT 

GETLFNS 

GETPRM 

GETRA 

GMHAS 

GODROP 

HELP 

HF.PF 

HIFAC 

lAoC 

IBUNP 

icon 

ICOMN 

IDAYWEK 

roio 

lOlGIT 

IFINOCH 

IFMTV 

IHMS 

IPAKLFT 


1977 

SIHULTANEOUS  EQUATION  SOLUTION  MITH  DETERMINANT  BY  ITERATIVE 
GAUSSIAN  ELIMINATION 

EXTRACT  CMARACTEP.  FROM  SPECIFIED  POSITION  IN  AN  ARRAY 
EXTRACT  CHARACTER  FROM  SPECIFIED  POSITION  IN  A WORD 
GET  SPECIFIED  FIT  ADDRESS 
GET  ACTUAL  LOCAL  FILE  NAMES  (FDR  FTN> 

GET  ALL  parameters  ON  EXECUTE  CARO 

GET  PROGRAM  COMMUNICATION  REGION  (RA+0  THRU  RAf77B) 

HARMONIC  ANALYSIS 

ISSUE  USER-SPECIFIED  GO/DROP  MESSAGE 
COMPLEX  ZEROES  OF  RFAL  OR  COMPLEX  POLYNOMIAL 
GET  terminal  id  FOR  THIS  JOB 
HIGHFST  COMMON  FACTOR  OF  TWO  POLYNOMIALS 
COUNT  ONE-BITS  IN  SPECIFIED  WORD 
UNPACK  12-BIT  BYTES  FROM  ARRAY 

INTERACTIVE  COMMUNICATOR  (SYMBOLIC)  --  READ  RESPONSE  ANO 
COMPARE  WITH  LIST  OF  VALID  RESPONSES 

INTERACTIVE  COMMUNICATOR  (INTEGER  NUMERIC)  — READ  NUMBER 
AND  TEST  TO  SEE  IF  IN  SPECIFIED  RANGE 

FUNCTION  TO  DETERMINE  THE  DAY  OF  THE  WEEK  FOR  ANY  DATE  FROM 
10/15/1582  THRU  02/28/4000 

GET  USER  INITIALS  (AND  INTERCOM  USER  ID)  FROM  CHARGE  CARO  OR 
LOGIN 

CHECK  FOR  DIGITS  IN  A FIELD  WITHIN  A WORD 
FIND  FIRST  OCCURRENCE  OF  SPECIFIED  CHARACTER  IN  ARRAY 
FAST  I-FORMAT  DECODE  OF  VARIABLE  LENGTH  INPUT 
CONVERT  SECONDS  TO  » HH.MM.SS.*  (SEE  ISEC) 

SQUEEZE  LEFT  ANO  REMOVE  ZEROS  (003)  AND  BLANKS  (55B),  RETURN 
NUMBER  OF  CHARACTERS 

CONVERT  ROMAN  NUMBERS  TO  INTEGER 


IROMAN 


ISFC  CONVERT  HH.MM.SS  TO  SECONDS  (SEE  IHHS) 

ISITCNE  TEST  FOR  CONNECTED  FILE 

ISTAPE  GENERATE  TAPE  NAME  ‘TAPENN* 

ISUMIT  SUM  ELEMENTS  OF  INTEGER  ARRAY 

JGOATF  CONVERT  ANY  GREGORIAN  DATE  TO  A JULIAN  DATE  AND  VICE  VERSA 

(MULTI-YEAR) 

JOBNAME  GET  NOS/BE  JOB  NAME  FOR  THIS  JOB 

JOBOPG  GET  JOB  ORIGIN  (BATCH,  INTERCOM,  GRAPHICS,  MULTI-USER) 

JULIAN  CONVERT  ANY  GREGORIAN  DATE  TO  A JULIAN  DATE  AND  VICE  VERSA 

(SINGLE  YEAR) 

KUTMER  INTEGRATE  A SYSTEM  OF  FIRST-ORDER  ORDINARY  DIFFERENTIAL 

EQUATIONS  USING  THE  KUTTA-MERSON  FOURTH-ORDER,  SINGLE-STEP 
METHOD 

LASTC  FIND  LAST  NON-BLANK  CHARACTER  IN  ARRAY 

LASTHRD  FIND  LAST  WORD  OF  ARRAY  WHICH  CONTAINS  A NON-BLANK  CONTAINS  A 

NON-BLANK 

LBYT  EXTRACT  VARIABLE  LENGTH  BYTE 

LEFTADJ  SQUEEZE  LEFT  ANO  REMOVE  BLANKS  ANO  003  (USER  MAY  SUPPLY 

TRAILING  FILL  CHARACTER) 

LTNE6  SET  PRINT  FILE  TO  6 LINES  PER  INCH 

LINE8  SET  PRINT  FILE  TO  8 LINES  PER  INCH 

LOGGAM  logarithm  of  gamma  function  for  COMPLEX  ARGUMENT 

LSQSUB  GENERAL  WEIGHTED  LEAST  SQUARES  FIT 

MAM  SOLVE  symmetric  SYSTEM  OF  LINEAR  EQUATIONS 

MAM200  SOLVE  200  SYMMETRIC  LINEAR  EQUATIONS 

MASKIT  dynamic  mask  GENERATOR 

MATINS  MATRIX  INVERSE  WITH  SIMULTANEOUS  EQUATION  SOLUTION  ANO 

DETERMINANT 

MAKE  find  maximum  VALUE  OF  AN  ARRAY  (ALSO  CONTAINS  AMAXE) 

MFFTCH  FETCH  A SINGLE  WORD  FROM  USER'S  FL  (SEE  HSET) 

MFX  obtain  the  MAINFRAME  ON  WHICH  THE  PROGRAM  IS  RUNNING 

MINE  FIND  MINIMUM  VALUE  OF  AN  ARRAY  (ALSO  CONTAINS  AMINE) 
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f MINMAX  GPNEPALIZFO  NONLINEAR  ITERATOR 

I 

[ MONTH  FROM  A OATE  (MM/OD/YY)  FIND  THE  MONTH  AND  RETURN  FULL 

! SPELLING  ANO  3-  OR  4-CHARACTER  AB8REVIATI0N 

f 

[ MOVSTR  MOVE  A STRING  OF  CHARACTERS  FROM  ONE  ARRAY  TO  ANOTHER 

[ mSET  set  a SINGLE  WORD  IN  USER'S  FL  (SEE  MFETCH) 

I NFWDAT  A00/SU3TRACT  SPECIFIED  NUMBER  OF  DAYS  TO/FROM  A GIVEN  OATE 

f 

! NPTLL  FILL  elements  1 THRU  N OF  AN  ARRAY  WITH  THE  VALUES  1 THRU  N, 

[ RESPECTIVELY 

I NFTLLT  TFST  an  array  for  the  presence  of  the  INTEGERS  1 THRU  N IN 

ELEMENTS  1 THRU  N,  RESPECTIVELY 

[ NROOTS  real  and  COMPLEX  ROOTS  OF  REAL  POLYNOMIAL 

[ NUMEXEC  GET  NUMBER  OF  EXFCUTE  CARO  PARAMETERS  WHICH  WERE  USEO  IN  THIS 

EXECUTION  OF  THE  PROGRAM 

I NUMVAR  DETERMINE  NUMBER  OF  ARGUMENTS  IN  CALL  TO  SUBPROGRAM 

I 

[ OFMTOF  FAST  O-FOPMAT  DECODE 

I 

I OFMTV  FAST  O-FOPMAT  OECOOE  OF  VARIABLE  LENGTH  INPUT 

i OPLSA  ORTHOGONAL  POLYNOMIAL  LEAST  SQUARE  APPROXIMATION 

i 

■ OVLNAME  GET  NAME  OF  FILE  CURRENTLY  BEING  EXECUTED 

I 

PAPGET  GET  ALL  PARAMETERS  OF  USER-SUPPLIED  PARAMETER  STRING 

i PFPr.  SUPPLY  DESCRIPTION  OF  PERMANENT  FILE  FUNCTION  RETURN  CODE 

j 

I PLOTMY  PRINTER  PLOT  - MULTIPLE  CURVES 

I 

PLOTPR  PPINTER  PLOT  - MULTIPLE  CURVES 

! PLOTXY  PPiNTER  PLOT  - SINGLE  CURVE 

POLOIV  POLYNOMIAL  DIVISION 

; POLYN  least  SQUARES  POLYNOMIAL  FIT 

t 

I POWPl  1 TERM  IN  EXPONENTIATION  OF  POWER  SERIES  - ONE  VARIABLE 

I 

POWP?  1 TERM  IN  EXPONENTIATION  OF  POWER  SERIES  - TWO  VARIABLES 


PPOD2 


1 TERM  IN  PRODUCT  OF  POWER  SERIES  - TWO  VARIABLES 
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i P500T 

1 

I OPTFL 

[ 

! POTIME 

t 

I 

, PS  I 

1 

I putcha 

1 

I PUTCHR 

I QSn=>T 

OSORTl 

QUAOG 

QUART 

^flNNUM 

IRGPA 

RFCOVRO 

REDUCE 

I REPLAC 

REPLACM 

REPLHI 

REPLLO 

REPINE 

REQUEST 

RFFT 

i RFSN 

t 

! ROOTEP 

I ROUTE 


t 

i 

I 

! 

i 


FIND  ALL  ROOTS  OF  A REAL  PLOYNOMIAL 

PRINT  CURRENT  FL  (OR  PUT  INTO  OATFILE) 

GET  AN3  PRINT  CPA,  CPB,  CP,  PP,  lO  ANO  MALL 
LAST  CALL  ANO  PRINT  USER-SUPPLIED  MESSAGE 

COMPLEX  PSI  FUNCTION 

INSERT  CHARACTEP  INTO  SPECIFIEO  POSITION  IN 

INSERT  CHARACTER  INTO  SPECIFIED  POSITION  IN 

IN-CORE  ASCENDING  SORT  FOR  ARRAYS  LARGER  THAN  500  WORDS 

IN-CORE  ASCENDING  SORT  WITH  RE-ORDERING  OF  ASSOCIATED  ARRAY 
(FOR  ARRAYS  LARGER  THAN  500  WORDS) 

INTEGRAL  3Y  GAUSS-LEGENORE  lO-POiNT  QUADRATURE 

real  or  complex  roots  of  guartic 

NORMALLY  DISTRIBUTED  RANDOM  NUMBERS 
READ  (A  PORTION  OF)  CONTROL  POINT  AREA 

ON  RECOVERY,  PRINT  EXCHANGE  JUMP  PACKAGE,  RA*0  THRU  RA«-770 

PEDUCE  FL  TO  MINIMUM  -OR-  REQUEST  ADDITIONAL  FL  RELATIVE  TO 
START  OF  BLANK  COMMON 

PEPLACE  ONE  CHARACTER  WITH  ANOTHER  IN  AN  ARRAY 

REPLACE  SEVERAL  CHARACTERS  WITH  OTHER  CHARACTERS 

REPLACE  ALL  CHARACTERS  GREATER  THAN  SPECIFIED  CHARACTER  WITH 
NEW  CHARACTER 

REPLACE  ALL  CHARACTERS  LESS  THAN  SPECIFIED  CHARACTER  WITH  NEW 
CHARACTER 

PEPLACE  ALL  CHARACTERS  (EXCEPT  SPECIFIEO  CHARACTER)  WITH  A 
SPECIFIEO  CHARACTER 

CALLABLE  REQUEST  COMMAND 

FAST  FOURIER  TRANSFORM  FOR  REAL  TABULATED  DATA 
REVERSE  FAST  FOURIER  TRANSFORM 
general  root  FINDER 
CALLABLE  ROUTE  COMMAND 


CLOCK  TIMES  SINCE 

AN  ARRAY 
A WORD 


S3YT 


store  variable  LENGTH  BYTE 
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SEMICO 

SENT 

SETREM 

SHIFTA 

SIMP 

SIMPUN 

SKMEZL 

SKHEZR 

SMOOTH 

SNCNON 

SPLFIT 

SQFIT 

SSOPT 

SSORTF 

SSORTI 

SSORTL 

STUTEE 

SUMIT 

TRAIteZ 

UNLOAD 

VAIOAT 

VALIOT 

VARAHl 

yARAH2 

WFILL 


REPLACE  DISPLAY  COOE  003  WITH  77B  (SEMI-COLON) 

MOVE  WORDS  FROM  ONE  ARRAY  TO  ANOTHER,  FORWARD  OR  BACKWARD 

CONVERT  ALPHABETIC  REWIND  OPTION  INTO  RM  OPEN  AND  CLOSE  CODES 

SHIFT  ARRAY  A SPECIFIED  NUMBER  OF  BITS  (CROSSING  OVER  WORD 
BOUNDARIES) 

SIMPSON'S  RULE  INTEGRATION 

SIMPSON'S  RULE  INTEGRATION  - UNEQUAL  INTERVALS 
SQUEEZE  LEFT  AMO  REMOVE  BLANKS  AND  OOB 
SQUEEZE  RIGHT  AND  REMOVE  BLANKS  AND  003 
LEAST  squares  POLYNOMIAL  SMOOTHING 
JACOBIAN  ELLIPTIC  FUNCTION 
SPLINE  CURVE  FIT 
POLYNOMIAL  LEAST  SQUARE  FIT 
FTN  SHELL  SORT 

FTN  CALLABLE  SHELL  SORT  FOR  TWO-DIMENSIONAL  ARRAYS 

FTN  CALLABLE  SMELL  SORT  ^OR  TWO-DIMENSIONAL  ARRAYS 

FTN  LOGICAL  SHELL  SORT 

STUDENT'S  T DISTRIBUTION 

SUM  ELEMENTS  OF  REAL  ARRAY 

CHANGE  TRAILING  BLANKS  TO  ZEROS  (OOB) 

UNLOAD  A FORTRAN  FILE 

LOGICAL  FUNCTION  TO  VALIDATE  A DATE  FORMAT 

VALIDATE  AN  ARRAY  TO  SEE  THAT  EACH  ELEMENT  IS  ONE  OF  A 
USER-SPECIFIED  LIST 

EIGENVALUES  AND  EIGENVECTORS  OF  A GENERAL  REAL  MATRIX 

IMPROVED  ESTIMATES  AND  BOUNDS  FOR  EIGENSYSTEM  OF  A GENERAL 
REAL  MATRIX 

FILL  AN  ARRAY  WITH  USER-SPECIFIED  WORD 


WEKOAY 


DETERMINE  THE  DAY  OF  THE  WEEK  FO»  ANY  GREGORIAN  DATE  FROM 
OCTOBER  15,  158Z  THRU  FEBRUARY  23,  i»000 
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AUG 

tflL 

KOP 

ZRLANK 

ZEROES 

ZFPOFL 

ZEROS 

ZPFPUT 

ZPFUNC 

ZPTPUT 

ZSYSEQ 
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FILON'S  METHOD  FOR  INTEGRALS  WITH  SiN  AND  COS 
EXCLUSI^F-OP  F'JNCTIOM 
CHANGE  BLANKS  TO  000  AND  VICE  VERSA 
REPLACE  BLANKS  WITH  (DISPLAY  CODE)  ZEROS,  MULTIPLE  FIELDS 
ZERO  FIELD  LENGTH  (SECURITY  EOJ) 

REPLACE  blanks  WITH  (DISPLAY  COOE)  ZEROS,  MULTIPLE  FIELDS 

PUT  USER-SPECIFIEO  parameters  INTO  ARRAY  FOR  LATER  CALL  TO 
ZPFUNC 

CALLABLE  PERMANENT  FILE  FUNCTIONS 

PUT  USF.R-SPECIFIFO  PARAMETERS  INTO  ARRAY  FOR  LATER  CALL  TO 
ROUTE 

FORTRAN  CALLABLE  SYSTEM  CALL 


BUG 
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*****  SUBPROGRAM  DOCUMENTATION 

THIS  CHAPTER  CONTAINS  THE  MACHINE-READABLE  DOCUMENTATION  EOR  MANY 
SUBPROGRAMS  IN  LIBRARY  *NSROC».  NON-MACHiNE-READABLE  DOCUMENTATION  FOR 
OTHER  ROUTINES  IN  THE  LIBRARY  IS  ON  FILE  IN  USER  SERk/ICES,  CODE  1992.1, 
(202)  227-1907. 

INDIYICUAL  OOCUMENTS  MAY  BE  PRINTED  JSINGl 

9EGIN,UTILITY, ,PROGOOC ,NSROC ,,<SUBPROG>,OUTPUT. 

MHEPF  <SJBPR0G>  IS  the  DESIRED  DOCUMENT. 

several  OOCUMENTS  MAY  BE  PRINTED  AT  ONE  TINE  JSINGl 

J03SAMF. 

CHARGE , . . . . 

8EGIN,UTILITY, , MANY DOC ,NSROC. 

• 7/9/9  EOR 

<SU3PR0G1> 

<SUBPR0G2> 

. . • 

<SUBPP03N> 

" b/7/8/9  EOF 


S'JB^OUTINE  'AC* 
c’UNCTTON  'AC* 

“U3P05F 

GET  ACCOUNT  NJMBER  FOR  THIS  JOB 
FUNCTIONAL  CATEGORYI  QO 
USAGE 

CALL  AC  (I) 

IVARIABLE  = AC  (I) 

DESCRIPTION  OF  parameters 

AC  - :<ILL  contain  ACCOUNT  NUMBER 
(INTEGER  type  VARIABLE) 

I - WILL  ALSO  CONTAIN  ACCOUNT  NUMBER 

REMARKS 

•AC'  MUST  BE  DECLARED  INTEGER  IN  THE  CALLING  ROUTINE. 

SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
NONE 
OTHERS 

RCOA  - READ  CONTROL  POINT  AREA 

ARITHMETIC  STATEMENT  FUNCTIONS 

L/lFMT  - fast  L-FORMAT  OECOOt  (LEFT-AOJ,  ZERO-FILLEO) 

LANGUAGE!  FORTRAN  IV 

METHOD 

THE  ACCOUNT  NUMBER  IS  TAKEN  FROM  CONTROL  POINT  AREA. 

CM  REQUIRED!  3ZB 
AUTHOR 

OAVIO  V SOMMER  - OTNSRDC  CODE  1892.2 

OATE  WRITTEN!  12/0U/75 

OATE(S)  REVISED 
02/27776 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , I D=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY!  NSROC 


0«/22/77 
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SUBROUTINE  ‘ftOJU* 

PURPOSE 

LEFT  ADJUST  A LINE  OF  WORDS  LEAVING  ONE  SPACE  BETWEEN  WORDS 
FUNCTIONAL  CATEGORYI  M4 
USAGE 

CALL  ADJL  (A,  NA,  NC t NW,  NWOROS) 

DESCRIPTION  OF  PARAHETEPS 

A - ARRAY  CONTAINING  WORDS  TO  8E  L EFT-AO JUSTED 

(WILL  3E  REPLACED  BY  LEFT-A D JUSTED  ARRAY) 

NA  - NUMBER  OF  COMPUTER  WORDS  IN  »A»  (DIMENSION  OF  *A») 

NC  - OUTPUT  NUMBER  OF  CHARACTERS 

NW  - OUTPUT  NUMBER  OF  COMPUTER  WORDS 

(SUBSCRIPT  OF  LAST  NON-BLANK  WORD  IN  'A*) 

NWOROS  - OUTPUT  NUMBER  OF  WORDS  IN  LINE 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
NONE 
OTHERS 

GETCHA  - GET  CHARACTER  FROM  ARRAY 
PUTCHA  - PUT  CHARACTER  INTO  ARRAY 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE!  FORTRAN  IW 
CM  REQUIRED!  1479 
AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1S92.2 

DATE  WRITTEN!  03724/76 

OATE(S)  REVTSED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL ,I D=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY!  NSRDC 


! 


SUBROUTINE  'l^njR* 


“URPOSF 

RIGHT  anj'JST  ft  LINE  OF  WORDS  LEftVING  ONE  SPftCE  BETWEEN  WOROS 
FUNOTIONftL  CftTEGORYI  H4 
USAGE 

CftLL  ftOJ?  (ft,  NA,  NC,  NW,  NWORD5) 

oescription  of  parameters 

A - ARRAY  containing  WORDS  TO  BE  RI GHT -A  0 JUSTED 

(MILL  BE  REFLftOEO  BY  R IGH T - A D JUST EO  ARRAY) 

NA  - number  of  computer  words  in  *4*  (DIMENSION  0^  'A') 

NC  - OUTPUT  POSITION  OF  FIRST  NON-BLANK  CHARACTER 

NW  - OUTPJT  SUBSCRIPT  OF  FIRST  NON-BLANK  WORD  IN  'A* 

NWOROS  - OUTPUT  NUMBER  OF  WORDS  IN  LINE 

PEMARKS 

NONE 

subooutine  And  function  subprograms  required 

PAPT  OF  LANGUAGF 
NONE 

others 

GETCHA  - GET  CHARACTER  FROM  ARRAY 
PUTChA  - PUT  CHAFACTEP  INTO  ARRAY 

arithmetic  STATEMENT  FUNCTIONS 
NONE 

languagei  fortran  iy 
CM  required*  1579 


AUTHOR 

DAVID  y SOMMFR  - OTNSROC  code  1892.2 


DATE  WRITTFNI  03/24/26 
OATF(S)  REVISED 


LOCATION  OF  OECKS 
SOURCE 

UPDATE  LIBRARY*  N5R0CPL , 10 =CS Y S 

OBJECT 

EDITLIB  user  LIBRARY*  NSROC 


03/24/76 
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OBTaiM  cpa,  CPB,  :p,  pp,  lo  a‘40  waiL  zloz<  times  since 

STaRT  OP  JOS  (OR  INTERCOM  SESSION' 

FUNCTIONM  CaiECORY*  QO  NO 
osasE 

call  ALTIMF  (TIMES) 

OESCPTPTICN  OF  PaOAMETEF' 

TIMES  - T-MOPJ  aPRAY  TO  CONTAIN  TME  FOLLOMINGI 
1 - CPA  TIME  IN  SECONOS 
^ - OP8  TIME  IN  SECONDS 

.■?  - CP  time  in  seconds  (C°a*:P8> 

A - PP  TIME  IN  SECONDS 
5-10  TIME  IN  SECONDS 

6 - WALL  CLOCK  TIME  ( MM.MM.SS.) 

7 - WALL  CLOCK  TIME  IN  SECONOS 

REMARKS 

NONE 

SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
PAPT  OF  language 
NONE 

others 

ISEC  - CONVERT  MM.MM.SS  TO  SECONOS 
RCPa  - READ  CONTROL  POINT  AREA 

APITHMETIC  STATEMENT  FUNCTIONS 

R65FMT  - east  R-F0RM4T  DECODE  (RIGHT-AOJ,  ZERO-FILLED) 

LANGUAGEt  PORTPAN  IV 

CM  REQUIREOt  BOB 

AUTHOR 

OAVIO  V SOMMER  - OTnSROC  COOE  1892.2 

DATE  WRITTENI  12/15/75 

OaTE(S)  RFVI5E0 

LOCATION  OF  DECKS 
SOURCE 

UPOATE  LIBRARY!  NSRDCPL ,I 0=CSYS 
OBJECT 

E0ITLI8  USER  LIBRARY!  NSRDC 


SU0ROJTINF  'ftSHIFT* 


PURPOSE 

SHIFT  EftCH  HORQ  OF  AN  ARPAY 
FUNCTIONAL  CATEGORY!  M4 
USAGE 

CALL  ASHIFT  (A,  NA , NA3ITS) 

IFSCRIPTION  OF  PARAMETERS 

A - ARRAY  TO  BE  SHIFTED 

NA  - NUM8FR  OF  WORDS  IN  'A*  TO  BE  SHIFTED 
NBITS  - NUMBER  OF  BITS  TO  SHIFT 

REMARKS 

ALL  ARGUMENTS  ARE  TYPE  'INTEGER* 

SUBROUTINE  And  function  SUBPROGRAMS  REQUIRED 
PART  OF  language 
SHIFT 
OTHERS 
NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE!  FORTRAN  IV 
CM  REQUIRED!  17B 
AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1892.2 
DATE  WRITTEN!  1973 


OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  N3R0CPL , I9=CSYS 
OBJECT 

EOITLI9  USER  LIBRARY!  NSRDC 


04/29/76 


2-6 
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1 OF  1 


I 


SUBROUTINE  *ASOf?T* 

PURPOSE 

FTN  ALPHANUMERIC  SORT 
FUNCTIONAL  CATEGORY!  HI 
USAGE 


CALL 

ASORT 

(A, 

I, 

L, 

TEM, 

PT, 

COL, 

KEY, 

TRANA , 

KEYM) 

CALL 

ASORT 

(A, 

I» 

L, 

tem. 

PT, 

COL, 

KEY, 

o> 

KEYM) 

CALL 

ASORT 

(A, 

I, 

L, 

TEM, 

PT, 

COL, 

KEY, 

TRANA) 

CALL 

ASORT 

(A, 

I, 

L, 

TEM, 

PT, 

COL, 

KEY) 

call 

ASORT 

(A, 

I, 

L, 

TEM, 

PT, 

COL) 

DESCRIPTION  OF  PARAMETERS 

A - TWO-DIMENSIONAL  ARRAY  TO  BE  SORTED 

I - NUMBER  OF  COLUMNS  (LINES)  TO  3E  SORTED 

L - NUMBER  OF  ROWS  (LENGTM  OF  LINE)  PER  COLUMN 

TEM  - TEMPORARY  WORK  ARRAY  OF  DIMENSION  *1* 

PT  - TEMPORARY  WORK  ARRAY  OF  DIMENSION  'I* 

COL  - TEMPORARY  WORK  ARRAY  OF  LENGTH  *L» 

KEY  - IF  PRESENT,  IS  ARRAY  OF  LENGTH  'L*  LISTING 
KEYS! 

KEY(1)=5  IMPLIES  THAT  THE  PRIMARY  SORT  KEY 
KEY(2)=7  “ - SECONDARY  “ " 

• • • 

KEY(N)=M  ••  - - „ 

KEY(N)=0  IMPLIES  THAT  THE  SORT  ENOS  AFTER  N- 1 SORT 
KEYS  are  used 

TRANA  - IF  PRESENT,  I 63-HORO  ARRAY  DEFINING  THE  COLLATING 
SEQUENCE. 

TF  ABSENT  OR  0,  DISPLAY  COOE  VALUES  ARE  USED. 

IF  0,  KEYM  CAN  BE  USED  WITHOUT  CHANGING  THE 
COLLATING  SEQUENCE. 

KEYM  - IF  PRESENT,  IS  AN  ARRAY  OF  LENGTH  *L*  FURTHER 

DEFINING  THE  SORT  KEYS.  (E.G.,  KEYM(2)  IS  A MASK 
DEFINING  WHAT  BITS  OF  THE  SECONDARY  SORT  KEY  WILL 
BE  USED.) 

remarks 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

IA3S  LOCF  SHIFT 

OTHERS 
EQU60 
SENT 
SSORTL 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE!  FORTRAN  IV 
CM  REQUIRED!  474B 


THE  SORT 

IS  ROW  5 
••  ROW  7 


07/11/75 
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ASORT  - 1 OF  2 


KPS 


auTHOR 

C FLINK 


NML 


DflTF  WRITTFNJ  03/08/^1 

OaTF(S)  REVISED 

Qb/2lfT2  - C FLIMK 


LOCaTION  OF  OECKS 
SOURCE 

UPDATE  LIBRARY!  NSPDCPL , 1 0 = CS YS 

OBJECT 

EDITLI3  USEP  LIBRARY!  NSROC 


07/01/7B 
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aSORT 
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SUqSfOUTI'JF  'aSORTMtf* 


PURPOSE 

SORT  2-OlMENSIONflL  aPRAY  USINS  HOYLEV 
^■iINCTIONAL  CATEGORYt  Ml 
USAGE 

CALL  ASO^'TMV  (A,  NROW,  NCOL,  IROW,  UPDOWN,  TEMP,  SWAP) 

OFSCRIPTION  OF  PARAMETERS 

a - 2-OIMENSIONAL  ARRAY  TO  3E  SORTED 

M»OW  - NUMBER  OF  ROWS  IN  ARRAY  'A*  (FIRST  DIMENSION) 

NCOL  - NUMBER  OF  COLUMNS  IN  ARRAY  'A*  (SECOND  OIMENSION) 

IROW  - ROW  POSITION  TO  BE  SORTED 
UPDOWN  - SORT  ORDER  DESIRED 

ILA  - ASCENDING  SORT 
ILO  - DESCENDING  SORT 

TEMP  - WORK  ARRAY  OF  DIMENSION  'NROW'  OR  GREATER 
SWAP  - RETURN  CODE 

0 - NO  SWAPPING  was  NECESSARY 

(ARRAY  ALREADY  IN  ORDER) 

1 - AT  LEAST  1 SWAP  WAS  NECESSARY 

2 - jPoowN  invalid,  ascending  sort  assumed, 

NO  SWAPPING  was  NECESSARY 

3 - UPDOWN  invalid,  ascending  SORT  ASSUMED, 

AT  LEAST  1 SWAP  WAS  NECESSARY 
<»  - IROW  <=  0 
S - IROW  > NROW 

remarks 

IN  ORDER  TO  USE  'MOVLEV*,  ALL  RELATED  DATA  TO  BE  SWAPPED 
MUST  BE  PHYSICALLY  LOCATED  NEXT  TO  EACH  OTHER,  THAT  IS,  EACH 
ROW  OF  'A*  CONTAINS  RELATED  DATA. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
MOVLEV 
OTHERS 
NONE 

LANGUAGE!  FORTRAN  IV 
CM  REQUIRED!  16GB 
AUTHOR 

DAVID  V SOMMER  - NSROC  CODE  1992.2 

DATE  WRITTEN!  02/01/TG 

DATE(S)  REVTSEO 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL ,I 0=CSYS 
OBJECT 

EDITLI3  USER  LIBRARY!  NSROC 


06/15/76 
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ASORTMV 
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r 


SU8W0IJTINJE  »0ANP» 

PIJPPOSF 

PRINT  fl  BANNER  (PAGE) 


FUNCTIONAL  CATEGORYI 


J4 


AUTHOR 

DAVID  V SOHMFR  - NSROC 


DATE  WRITTENI  02/18/75 


OOF  1892.2 


OATE(S)  REVISED 
USAGE 

CALL  3ANR  (DUMMY,  lOUT*  NEHPA3E) 

DESCRIPTION  OF  PARAMETERS 

DUMMY  - 1-10  CHARACTERS  TO  3E  PRINTED 

(LF^T-JUSTIFIED,  BLANK-  OR  ZERO-FILLED) 
lOUT  - NUMBER  OF  FILE  ON  WHICH  BANNER  IS  TO  BE  WRITTEN 
NEWPASE  - IF  ARGUMENT  IS  NON-ZERO,  BANNER  IS  WRITTEN  ON 
SAME  PAGE 

IF  ARGUMENT  IS  ZERO  OR  MISSING,  BANNER  IS  WRITTEN 
ON  A NEW  PAGE 

REMARKS 

ONLY  3 BANNERS  WILL  FIT  ON  A PAGE. 


5UBROUTINF  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PAPT  OF  LANGUAGE 
MOVLEV 
SHIFT 
OTHERS 
NONE 

LANGUAGE!  FORTRAN  IV 

CM  REQUIRED!  15403 

LOCATION  OF  DECKS 
SOURCE 

TAPE  LABELLED  CSYSNSROCPL?  P.F,  NSRDCPL, IO=CSY5 
OBJECT 

FDITLIB  USER  LIBRARY!  NSROC 


06/15/75 
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BANR 
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SUBROUTINE  'BSJ* 


PURPOSE 

spherical  BESSEL  FUNCTION 
FUNCTIONAL  CATEGORYI  C3 
LANGUAGE*  FORTRAN  IV 
REMARKS 

evaluates  the  SPHERICAL  BESSEL  FUNCTION  J-SUB-N(X)  FOR 
N=-1,0,...,I  BY  means  op  a RECURSIVE  RELATION  AND  REASONABLE 
STARTING  VALUES.  STARTING  VALUES  ARE  GENERATED  WITHIN  THE 
SUBROUTINE. 

USAGE 

CALL  3SJ  (I,  X,  BJ) 

DESCRIPTION  OF  PARAMETERS 

I - HIGHEST  ORDER  DESIRED 

X - SINGLE  PRECISION  FLOATING  POINT  VARIABLE 
BJ  - ARRAY  DIMENSIONED  AT  LEAST  I»2  FOR  SOLUTIONS 
(BJ(N*2)  = J-SUP-N(X)) 

CM  REOUIREOI  4323 

METHOD 

A.  THE  values  are  COMPUTED  BY  USING  THE  RECURSION  FORMULA! 

J (X)  4^  j (X)  = 2I±l  J <X) 

I-l  1*1  X I 

IF  X>20.5,  THE  RECURSION  IS  FORWARD. 

IF  X<20.5,  THE  RECURSION  IS  BACKWARD. 

FOR  VARIOUS  RANGES  (X<20.5),  AN  UPPER  LIMIT,  NU,  IS  SET. 
SJ(NU<-1)  IS  THEN  SET  TO  ZERO,  AND  THE  RECURSION  PROCESS 
IS  EXECUTED. 

3.  RANGFI  THE  FOLLOWING  DOMAINS  HAVE  BEEN  CAREFULLY  CHECKED! 

I<25.  ERROR  IS  LESS  THAN  i5X10**-ll.  POSSIBLE 
domains  APE!  0<I<25  AND  (]<X<100.  (CAUTION!  FOR  LARGER 
domains,  CHECK  DIMENSIONING  IN  THE  SUBROUTINE.) 

NOTE!  IF  I>>K,  J-SUB-KX)  IS  VERY  SMALL. 

REFERENCES 

HANDBOOK  OF  MATHEMATICAL  FUNCTIONS,  AMS  55,  NATIONAL  BUREAU 
OF  STANDARDS. 

association  of  COMPUTING  MACHINERY,  "GENERATION  OF  SPHERICAL 
BESSEL  FUNCTIONS",  F.  J.  CORBATO  ANO  J.  L.  URETSKY,  JULY 
1959,  VOL.  6,  NO.  3,  PP.  366-375. 


07/18/77 
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r 

I 


S'J'BPOUTINE 
PftRT  OF 
COS 
OTHERS 
NONE 

AUTHORS 

R L PEXTON  - LAWRENCE  RADIATION  LA30RAT0RY 
0 A WILOFR  - LAWRENCE  RADIATION  LA30RAT0RT 

DATE  WRITTENI  01/06/65  (RLP) 

OATE(S)  REVISED 
11/65  (CAW) 

LOCATION  OF  DECKS 
SOURCE 

TAPE  LABELLED*  CLI3RARYU3Q3 
OBJECT 

EOITLIB  USER  LIBRARY*  NSRDC 


PURPOSE 

CENTER  A CHARACTER  STRING  WITHIN  AN  OUTPUT  FIELD 


='UNCTI0NAL  CATEGORY*  Hi* 


USAGE 

CALL  CENTER  (IN,  LIN,  OUT,  NOUTC,  WORK) 

DESCRIPTION  OF  PARAMETERS 

IN  - INPUT  ARRAY  CONTAINING  CHARACTER  STRING  TO  BE 
CENTERED 

(CHARACTER  STRING  STARTS  IN  POSITION  1 AND  ENOS 
WITH  LAST  NCN-BLANK  CHARACTER) 

LIN  - NUMBER  OF  WORDS  IN  ‘IN* 

OUT  - OUTPUT  array  IN  WHICH  ’IN*  IS  TO  BE  CENTERED 

NOUTC  - NUMBER  OF  CHARACTERS  IN  ‘OUT*  WITHIN  WHICH 

'IN*  IS  TO  BE  CENTERED 

WORK  - WORK  ARRAY  WHOSE  DIMENSION  IS  THE  LARGER  OF 

A)  10  TIMES  LIN 

B)  NOUTC  ♦ 10 

REMARKS 

USEFUL  FOR  CFNTERING  HFAOlNGS  ON  A PAGE.  FOR  INSTANCE, 
IF  'THIS  IS  A HEADING'  IS  TO  3E  CENTERED  FOR  A 132- 
COLUMN  WIOE  PAGE,  THE  FOLLOWING  CAN  BE  USEOl 
DIMENSION  IN(2),  0UT(14),  W0RK(142) 

IN(1)  = lOHTHIS  IS  A 
IN(2)  = lOHHEAOTNG 

call  center  (IN,  2,  OUT,  132,  WORK) 

ON  RETURN,  'OUT'  WILL  CONTAIN  'THIS  IS  A HEADING'  IN 
POSITIONS  THRU  74  (WORD  6,  POSITION  8 THRU 
WORD  8,  POSITION  4).  POSITIONS  1-56  AND  75-132  WILL 

contain  blanks. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

MOD  MOWLEV  SHIFT 

OTHERS 

VFILL  - fill  ARRAY  WITH  SPECIFIED  WORD 

ARITHMETIC  STATEMENT  FUNCTIONS 

EAST  R-EORMAT  DECODE  (RIGMT-ADU,  ZERO-FILLED) 

RllFMT  R12FMT  R13FMT  R14FMT  R15FMT 

R16FMT  R17FMT  R18FHT  R19FMT  RllOFMT 

wANGUAGEI  FORTRAN  IV 

CM  REOUlREOt  333B 


06/15/76 
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CENTER 
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r 1 


author 

CAVIO  v SOMMER  - NSRDC  'JOOE  1992.2 

DATE  WRITTENI  05/19/75 

OATE(S»  REVISED 

LOCATION  OE  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRCPL ♦ I 0= D SYS 
OBJECT 

EOITLia  USER  LIBRARY!  NSRDC 


I 

1 

I 

i 

1 

I 


i 

I 


I 

i 


06/15/7f> 
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SUBROUTINE  »CHFILL* 


PURPOSE 

FILL  (PORTION  OF) 
FUNCTIONAL  CATEGORY! 
LANGUAGE!  FORTRAN  IW 


ARRAY  WITH  CHARACTER 
M4 

EXTENDED 


REMARKS 

NONE 


USAGE 

CALL  3HFILL  (ICHAR, 


TO,  ITO,  LEN) 


DESCRIPTION 
ICHAR  - 
TO 
ITO 

LEN 


OF  PARAMETERS 

FILL  CHARACTER  (IR  OR  IH  OR  **  ") 

ARRAY  TO  BE  FILLED 
STARTING  CHARACTER  IN  »TO» 

(CHARACTER  1 IS  LEFT-MOST  CHARACTER  OF  TO(l)) 
NUMBER  OF  CHARACTERS  TO  3E  FILLED 


CM  REQUIRED!  56B 

EXAMPLE 

TO! 

AFTER  CALL  CHFILL  (IR/,  TO,  23,  7) 

TO!  »*»**♦•♦♦♦»•**••*•*♦••///////♦ 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
and  SHIFT 

OTHERS 

PUTCHA  - INSERT  CHARACTER  INTO  ARRAY 


ARITHMETIC 

LllFMT 

RllFHT 


STATEMENT  FUNCTIONS 

- FAST  L-FORMAT  DECODE 

- FAST  R-FORMAT  DECODE 


(LEFT-AOJ,  ZERO-FILLED) 
(RIGHT-ADJ,  ZERO-FILLED) 


AUTHOR 

DAVID  V SOMMER  - OTNSRDC  CODE  1392.2 


DATE  WRITTEN!  03/10/77 


OATE(S)  REVISED 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL ,I D=CSYS 
OBJECT 

EDITLI9  USER  LIBRARY!  NSRDC 


03/10/77 


2-l‘> 


CHFILL  - 1 


k. 


[ 

I 
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SUBROUTINE 


•SMPINV • 


PURPOSE 

COMPLEX  MATRIX  IN(#ERSION 
EUNCTIONAL  CMEGORIES*  F4  A2 
LaNGUAGEI  FORTRAN  IV  EXTENDED 


REMARKS 

THE  real  and/or  imaginary  parts  of  the  matrix  'A»  may  8F 

SINGULAR. 


USAGE 

CALL  CMPINV  (A,  N,  Nl, 


ID,  E,  N2,  INDEX) 


DESCRIPTION  OF  PARAMETERS 
A - COMPLEX  INPUT 

(NOT  DESTROYED 
N - DIMENSION  OF  A 

Nl  - NUM3ER  OF  ROWS 

C « INVERSE  RESULT 

(MAY  BE  THE  SA 
ID  - RETURN  CODE 

1 - INVERSION 

2 - MATRIX  SIN 

E - TEMPORARY  ARRA 

N2  - NO  SMALLER  THA 

INDEX  - TEMPORARY  ARRA 


MATRIX 

BY  SUBROUTINE) 

AND  C (N  X N) 

IN  A AND  C CURRENTLY  FULL 
MATRIX 
ME  AS  A) 

SUCCESSFUL 

GULAR 

Y SOLVING  N2  X N2  SYSTEM 
N N1»N1 

Y USED  IN  INVERSION  (N2,3) 


THE  CALLING  PROGRAM  MUST  INCLUOEI 


COMPLEX  A (N, N) , C (N,N) 

REAL  e(N2,N2),  INOEX(N2,3) 

CM  REQUIRED)  1<»73 

method 

the  SYSTEM  SOLVED  IS  THE  EXPANDED  MATRIX 


• AR  -AI  • 

E = * ! 

!_AI  AR.! 

WHERE  CR  IS  TAKEN  AS  THE  UPPER  LEFT  CORNER  OF  THE  INVERSE 
AND  Cl  IS  TAKEN  AS  THE  LOWER  LEFT  CORNER  OF  THE  INVERSE. 
(LANCZOS,  APPLIED  ANALYSIS,  P 137).  THE  INVERSE  IS  COMPUTED 
BY  SUBROUTINE  MATINS  (ALSO  ON  N5RDC)  WHICH  USES  GAUSS- 
JOPOAN  ELIMINATION.  THIS  METHOD  FINDS  AN  INVERSE  IF  IT 
EXISTS,  EVEN  IE  PEAL  ANO  IMAGINARY  PARTS  OF  A ARE  BOTH 
INDIVIDUALLY  SINGULAR.  IDENTIFICATION  OF  A SINGULAR  COMPLEX 
MATRIX  IS  RETURNED  TO  THE  CALLING  PROGRAM. 


OB/22/77 
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CMPINV 
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2 


o»  fzzm 


SU^oOutINF  flNU  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 

AIMAG  3MPLX  real 

OTHERS 

MATINS  - MATRIX  INVERSION 

AUTHOR 

SHARON  E GOOD  - DTNSRQC  CODE  1892.2 

OATf  WRITTrNI  06/10/71 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

tape  LADELLEDI  CLlBRARrU»03,0=HY  (DECKNAMEI  AiCMAT) 
OBJECT 

EDITLI3  USER  LIDRARVI  NSROC 
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i^UNnTION  'COMPSTR* 

PU'^POSE 

COMPARE  TWO  CHARACTER  STRINGS 

(FUNCTIONAL  CATEGORY*  M3 

language*  EORTRAN  IV  EXTENDED 

(’EMAOKS 

NONE 

USAGE 

TEST  = COMPSTR  (A,  EPOMA,  B,  ER3MB,  NCHAR) 

OF  PARAMETERS 

ARRAY  CONTAINING  FIRST  CHARACTER  STRING 
STARTING  CHARACTER  POSITION  IN  A 

(POSITION  1 IS  LEFT-MOST  6-3IT  CHARACTER  IN  A(l») 
ARRAY  containing  SECONO  CHARACTER  STRING 
STARTING  CHARACTER  POSITION  IN  B 

(POSITION  1 IS  LEFT-MOST  6-3IT  CHARACTER  IN  3(1)) 
NUMBER  OF  CHARACTERS  TO  COMPARE 
WILL  PFTURN  ONE  OF* 

-1.  - STRING  IN  A IS  LESS  THAN  STRING  IN  B 

a.  - string  IN  A IS  EQUAL  TO  STRING  IN  8 

♦1.  - STRING  IN  A IS  GREATER  THAN  STRING  IN  3 

CM  REOUIREO*  10'53 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
NONE 

others 

GETCH.fl  - GET  CHARACTER  FROM  ARRAY 

AUTHOR 

DAVID  V SOMMER  - DTNSROC  CODE  1992.2 

DATE  WRITTEN*  04/04/27 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY*  NSRDCPL , I 0=CSY S 
OBJECT 

EDITLI3  USER  LIBRARY*  NSRDC 


DESCRIPTION 

A 

FPDMA 

9 

FR0M3 

NCHAR 

COMPSTR 


04/aS/77 
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SUBROUTINE  'CONTRCT* 


PURPOSE 

SQUEEZE  ARRAY  OF  IR-FORMAT  CHARACTERS  TO  LEFT 
FUNCTIONAL  CATEGORYI  M4 
LANGUA&EI  fortran  IV  EXTENDED 
REHARKS 

SEE  SUBROUTINE  'EXPAND*. 

USAGE 

CALL  CONTRCT  (A,  B,  NCHAR) 

DESCRIPTION  OF  PARAMETERS 

A - INPUT  ARRAY  WHOSE  ELEMENTS  EACH  CONTAIN  ONE 

CHARACTER  IN  THE  RIGHT-MOST  6 BITS  (IR  FORMAT) 

3 - OUTPUT  ARRAY  WHOSE  ELEMENTS  WILL  EACH  CONTAIN  10 

CHARACTERS  FROM  ARRAY  A (ANY  LEFT-OVER  BITS  OF  THE 
LAST  WORD  USFD  IN  ARRAY  3 WILL  BE  CLEARED  TO  OB) 
NCHAR  - NUMBER  OF  CHARACTERS  IN  ARRAY  A 

CM  REQUIRED)  55B 

SUB'^  'INE  and  function  SUBPROGRAMS  REQUIRED 

‘ ' OF  language 

MASK  MOO 

OTHERS 

PUTCHA  - INSERT  CHARACTER  INTO  APRAY 

ARITHMETIC  STATEMENT  FUNCTIONS 
NWORO  - COMPUTE  SUBSCRIPT 

AUTHOR 

DAVID  V SOMMER  - OTNSROC  CODE  1B92.2 

DATE  WRITTEN)  04/04/77 

OATE(S)  REVISED 

location  of  OFCKS 
SOURCE 

UPDATE  LIBRARY)  NSROCPL ,IO=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY)  NSROC 


04/05/77 
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CONTRCT 
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SUBROUTINE 


•COUPLE • 


PURPOSE 

LOGICALLY  CONNECT  (PORTIONS  OF)  TWO  WORDS 

FUNCTIONAL  CATEGORYt  R1 

LANGUAGE:  FORTRAN  IV  EXTENDED 

REMARKS 

NONE 

USAGE 

CALL  COUPLE  (FL,  AWORD,  AB,  BWORQ,  8B,  LC,  lOAC) 

0‘=;scRiPTiON  OF  parameters 

RL  - NUMBER  OF  BITS  TO  PROCESS 
AWORD  - first  word  (FROM) 

AB  - STARTING  BIT  POSITION  IN  AWORD 
DWORD  - SECOND  WORD  (TO) 

9B  - STARTING  BIT  POSITION  IN  3W0RD 
IC  - CODE  FOR  LOGICAL  CONNECTIVE  OESIREO 


0 - PUT  ZEROS  INTO  3W0RD  FIELD  (0) 

1 - AND  THE  FIELDS  (M.A) 

^ - and  THE  COMPLEMENT  OF  A TO  3 (M.A*) 

3 - NUMPEP  OF  ONE  IN  THE  LAST  FIELD  (M) 

(♦  - AND  The  complement  of  B TO  a (M*.A) 

5 - SUBSTITUTE  FIELD  OF  A INTO  3 (A) 

G - EXCLUSIVE  OR 

Z - OR  (M«-A) 

3 - AND  COMPLEMENTS  (A».3*) 

q - IDENTITY  (B=A) 

10  - SUBSTITUTE  COMPLEMENT  OF  A INTO  B (A*) 

11  - OR  THE  COMPLEMENT  OF  A TO  3 (M4-A») 

12  - COMPLEMENT  OF  8 (M*) 

13  - OR  A TO  THE  COMPLEMENT  OF  8 (A+M*) 

14  - OR  THE  COMPLEMENTS  OF  A AND  3 (A*fM*) 

15  - PUT  ONES  INTO  3W0RD  FIELD  (1) 

lOAC  - OUTPUT  NUMBER  OF  ONE-3ITS  FOP  LC=3 


CM  required:  224B 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
SHIFT 
OTHERS 

lAQC  - COUNT  ONE  BITS  IN  A WORD 
MASKIT  - MULTIPLF-FIELD  MASK  GENF.RATOR 


03/01/77 
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COUPLE 
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a UTHOR 
NWL 


oaTF  wPirrFNi 

DATE(S)  REl/ISEO 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIORARYI  NSRDCPL , IO=CSyS 
OBJECT 

EOITLIB  USER  L18RARYI  NSROC 


06/01/77 
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COUPLE 


2 CF  2 


5UB'’0UTI‘<f  'CPU4&7* 
function  *CPU4S7* 

PURPOSE 

OBTAIN  THE  MACHINE  THE  PROGRAM  IS  RUNNING  ON 
FijnCTIONAL  CATEGORY!  QG 
USAGE 

call  :PU46r  (ICPUl 
VARIABLE  = CPJ467  (ICPU) 

OESCRIPTION  OF  PARAMETER 

ICPU  - HILL  RETURN  THE  MACHINE  THE  PROGRAM  IS  RUNNING  ON 
(LEFT-AOJ,  ZERO-FILLED) 

(WILL  RETURN  CNP  OF  4Lb700,  4L6600,  4L6400) 

(WHEN  USED  AS  A "UNCTION,  'VARIABLE*  AND  'CPJ46Z* 
MUST  BE  OF  THE  SAME  TYPE) 

REMARKS 

NONE 

subroutine  and  function  SUBPROGRAMS  REQUIREO 
PART  OF  LANGUAGE 

AND  MACHINE  OR  SHIFT 

others 

NONE 

A^^ITHMFTIC  statement  functions 

L33FMT  - fast  L-FORMAT  DECODE  (LEFT-AOJ,  ZERO-FILLED) 

LANGUAGE!  FORTRAN  IV 

CM  REQUIRED!  ?5B 

A UTHOR 

DAVID  V SOMMER  - NSRDC  CODE  1992.2 
DATE  WRITTEN!  04/18/75 
OATE(S)  REVISED 

03/22/76  - MAKE  FUNCTION  AS  WELL  AS  SUBROUTINE 

location  of  decks 

SOURCE 

UPDATE  LIBRARY!  NSRDCPL , I 0=CSYS 
OBJECT 

EDITLI3  USER  LIBRARY!  NSRDC 


08/22/77 
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r 

i 


3'JBPOIJTI'^E  ♦O'lPA* 

PURPOSE 

CALLABLE  OCTAL  ANO  CHARACTER  SUMP  OF  SPECIFIED  PORTION 
OF  USFR*S  FIELD  LENGTH  (FL)  (BY  ACTUAL  LOCATION) 

(NO  HEADINGS  ARE  PPOVIOED) 

FUNCTIONAL  CATEGOPYI  N2 

USAGE 

CALL  DMPA  (FWA,  N,  INIT) 

CALL  DMPA  (FWA,  N) 

DESCRIPTION  OF  PARAHETERS 

FhA  - FIRST  WORC  AOCRESS  OF  AREA  TO  DUMP 
(E.G.,  LOCF  (ARRAY)) 

N - NUMBER  OR  WORDS  TO  DUMP 
INIT  - STARTING  WORD  ADDRESS  TO  BE  PRINTED 
(IF  OMITTED,  0 IS  USED) 

REMARKS 

NONE 

SUBROUTINE  and  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
LOCF 
OTHERS 

EQJ60  - uOGICAL  ARRAY  COMPARE 
MFETCH  - READ  WORD  IN  USER'S  FL 

LANGUAGE!  FORTRAN  IV 

OUTPUT  UNIT 

UNIT  • LFN  USE 


OUTPUT  LISTABLE  OUTPUT 
CM  REQUIRED!  3153 
AUTHOR 

DAVID  V SOMMER  - DTNSROC  CODE  1992.2 

DATA  WRITTEN!  06/14/76 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATF  LIBRARY!  NSRDCPL , I D=C SYS 
OBJECT 

EDITLB  USER  LIBRARY!  NSRDC 


08/22/77 
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DMPA 
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SU'5»OUTr‘4f  ‘OMPCPA* 


PURPOSE 

OUMP  JOB  CONTROL  POINT  AREA 

functional  category*  Ne 


USAGE 

CALL  3NPCPA 


REMARKS 

octal  and  character  dump 


SUBROUTINE 
PART  OF 
DATE 
OTHERS 
RCPA 


ANO  function  subprograms  REQUIREO 
language 

TIME 

- READ  CONTROL  POINT  AREA 


ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

language*  fortran  IV 


OUTPUT  UNITS 

— LEM-- 

OUTPUT 


liSE 

LISTABLE  OUTPUT 


CM  REQUIREO*  324B 


AUTHOR 

OAVIO  V SOMMER  - DTNSROC  CODE  1892.2 


DATE  WRITTEN*  12/29/79 

OATE(S>  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY*  NSROCPL , IO=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY*  NSROC 


08/22/77 


2-24 


OMPCPA 
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1 


SIJ390UTINF  'OMPFir* 

P'JRPOSE 

SHORT  DUMP  OF  FTN  OR  RM  FILE  INFORMATION  TABLE  (FIT) 
c’UNCTIONAL  CATEGORYt  N2 
USAGE 

GALL  IHPFIT  (FIT,  RM) 

CALL  JMPFIT  (FIT) 

DESCRIPTION  OF  PARAMETERS 
FIT  - RM  FIT  ARRAY  -OR- 

FTN  FILE  NAME  (L-FORMAT)  OR  INTEGER  FORTRAN 
logical  unit  NUMBER) 

RM  - IF  omitted  or  RM=0,  FIT  15  FOR  FTN  FILE. 

IF  RM^O,  FIT  IS  RM  FIT  ARRAY. 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REOUIRED 
PART  OF  LANGUAGE 

LOCF  MOVLEV  SHIFT 

OTHERS 

ISTAPF  - CHANGE  INTEGER  N TO  »TAPEN* 

MFETCH  - READ  WORD  IN  USER'S  Fl 


ARITHMETIC  STATEMENT  FUNCTIONS 

FAST  L-FORMAT  DECODE  (LEFT-AOJ,  ZERO-FILLED) 

L61FMT 

lzifmt 

FAST  R-FORMAT  DECODE  (RIGHT-AOJ,  ZERO-FILLED) 

R21FMT  R23FMT  ’25-MT  R27FMT  R29FMT 
R33FMT 

LANGUAGE)  FORTRAN  IV 

OUTPUT  UNITS 

FORTRAN  local 

LOGICAL  FILE 

U-tJ-I.I  -UfiME USE 

OUTPUT  LISTABLE  OUTPUT 

CM  REOUIREOt  233B 

AUTHOR 

DAVID  V SOMMER  - OTNSRDC  CODE  1992.2 

DATE  WRITTEN)  11/04/75 

DATECS)  REVISED 
04/21/76 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY)  NSRDCPL , I 0=CSYS 
OBJECT 

EDITLI3  USER  LIBRARY)  NSRDC 

09/22/77  2-25  DMPFIT  - 1 OF  1 


3UBR0UTIME  'DPROOT* 

PURPOSE 

FIND  ALL  ROOTS  OF  A PEAL  DOUBLE  PRECISION  POLTNOMIAL 


-UNCTIONAL  CATEGORYI  C2  B4 
LANGUAGEJ  FORTRAN  IV 
REMARKS 

THE  POLYNOMIAL  HAS  THE  =’ORMI 
A ♦ A K ♦ ♦ A 

1 2 NH 

USAGE 

CALL  OPROOT  (N,  A,  U,  V,  H,  E 


C,  CONV,  NPLUS2) 


DESCRIPTION  OF  PAPAMETERS 


N - OEGREE  OF  THE  POLYNOMIAL  TO  BE  SOLVED 

A - DOUBLE  PRECISION  ARRAY  (DIMENSIONED  N+2)  CONTAINING 

THE  COEFFICIENTS  IN  THE  ORDER  INDICATED  ABOVE 
U - DOUBLE  PRECISION  ARRAY  (DIMENSIONED  N>2)  WHICH  HILL 

CONTAIN  THE  REAL  PARTS  OF  THE  ROOTS 
V - DOUBLE  PRECISION  ARRAY  (DIMENSIONED  N»2)  WHICH  HILL 

CONTAIN  THE  IMAGINARY  PARTS  OF  THE  ROOTS 
H,3,C  - DOUBLE  PRECISION  WORK  ARRAYS  (EACH  DIMENSIONED  N»2» 

CONV  - CONVERGENCE  CRITERION.  INITIALLY  SET  BY  DPROOT  TO 
1.00-35  (FAR  BELOW  THE  ACTUAL  STARTING  CONVERGENCE 
CRITERION  OF  5.00-20  (COC  6600).  IF  THE  POLYNOMIAL 
HAS  NOT  CONVERGED  AFTER  A PRESCRIBED  NUMBER  OF 
TRIES,  the  convergence  CRITERION  IS  RELAXED.  IF, 
UPON  EXIT  FROM  DPROOT,  CONV  IS  NOT  l.OD-35,  THE 
CONVERGENCE  CRITERION  HAS  BEEN  RELAXED  TO  THE 
NUMBER  GIVEN.  (CONV  IS  DOUBLE  PRECISION.) 

NPLUS2  - MUST  BE  SET  TO  N*2 


CM  REOUIREOt  1153B 

method 

THE  ROUTINE  CONVERGES  SIMULTANEOUSLY  TOWARD  A LINEAR  FACTOR 
AND  A QUADRATIC  FACTOR  BY  NEWTON'S  AND  BAIRSTOW'S  METHODS, 
RESPECTIVELY.  WHEN  A ROOT  IS  FOUND  BY  ONE  METHOD,  ITERATION 
CONTINUES  WITH  BOTH  METHODS  USING  THEIR  MOST  RECENT  GUESSES. 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

DABS  DSIGN  SQRT 

OTHERS 
NONE 


Or/25/77 
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DPROOT 
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r 

I 


AUTHOR 

HARVEY  ARRAHSON  - NEW  YORK  UNIVERSITY 


OATE  HRITTENI  01/66 


DATE<S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

TAPE  LA3ELLF0I  CLIBRARYUP03 
OBJECT 

EQITLI8  USER  LIBRARYI  NSRDC 


07/25/77 


2-27 


DPROOT 


2 OF  2 


SUBROUTINE  'OUMPft 


PURPOSE 

GIVE  OCTAL  ANO  CHARACTER  DUMP  OF  USER-SPECIFIED  AREA 
'FUNCTIONAL  CATEGORri  N? 


USAGE 

CALL  OUMPA  (AREA,  NWOROS,  NAME) 

DESCRIPTION  OF  PARAMETERS 

AREA  - START  OF  AREA  TO  BE  OUMPEO 
NWOROS  - NUMBER  OF  WORDS  TO  DUMP 

NAME  - 1-ia  CHARACTER  lOENTIFICAT ION  OF  START  OF  AREA 
(F.G,,  lOHMYAREA(l)  ) 

(WILL  BE  PRINTED  IN  HEADING  LINE) 

REMARKS 

LINFS  CONTAIN  4 WORDS  EACH.  IF  A LINE  IS  THE  SAME  AS  THE 
PREVIOUS  LINE,  IT  IS  NOT  PRINTED  (UNLESS  IT  IS  THE  LAST 
LINE) . 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIREO 
PART  OF  LANGUAGE 
COHPL 
OTHERS 
NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGEI  FORTRAN  IV 
OUTPUT  UNITS 

-_LEti USE 

OUTPUT  LISTABLE  OUTPUT 

CM  REOUIREDI  257B 

AUTHOR 

DAVIO  V SOMMER  - OTNSROC  CODE  1892.2 

OATF  WRITTEN!  02/06/76 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYI  NSRDCPL ,IO=CSY3 
OBJECT 

EOITLI3  USER  LIBRARY!  NSROC 


08/22/77 


2-28 


OUMPA 
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3'JPI^OUTINE  'OUMPCPA* 


PURPOSE 

EXPANOEO  DUMP  0^  JOB  CONTROL  POINT  AREA 
FUNCTIONAL  CATEGORYI  N2 


usage 

CALL  OUMPCPA 


RFNARKS 

EACH  FIELD 


IS  PRINTED  SEPARATELY 


SUBROUTINE 
PART  DF 
DATE 

others 

EXT3IT 

PAKLFT 

RCPA 

VEILL 


AND  FUNCTION 
I ANGUAGE 

SHIFT 


SUBPROGRAMS  REQUIRED 


TIME 


EXTRACT  BITS  FROM  A WORD 
SQUEEZE  LEFT,  REMOt/E  BLANKS 
READ  CONTROL  POINT  AREA 
FILL  ARRAY  WITH  WORO 


AND  OOB 


ARITHMETIC  STATEMENT  FUNCTIONS 


FAST  L-FORMAT 
L71FMT 

DECODE 

(LEFT-ADJ, 

ZERO-FIL 

LEO) 

FAST  R-FORMAT 

DECODE 

(RIGHT-AD J, 

ZERO-FI 

LLEO) 

RIFMT 

R16FMT 

R19FMT 

RllOFMT 

R21FMT 

R23FMT 

R25FMT 

R27FMT 

R31FMT 

R33FMT 

R41FMT 

R66FMT 

R71FMT 

R32FMT 

R45FMT 

R34FMT 

R35FMT 

R3 

LANGUAGEI  fortran  IV 
OUTPUT  UNITS 

USE 

OUTPUT  LISTABLE  OUTPUT 

CM  REQUIREDI  444i»3 

AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1392.2 

DATE  WRITTEN!  12/30/7S 

DATE(S)  REVISED 
02/27/76 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NS RDCPL , I D=CSY S 

OBJECT 

EOITLIB  USER  LIBRARY!  NSROC 


08/22/77 
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OUMPCPA 
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3UBW0UTINE  'OUMPPIT* 


PURPOSE 

OETftILEO  OUMP  OF  FTN  OR  RM  FILE  INFORHATID^4  TABLE  (FIT) 
functional  CATEGORYI  N2 
USAGE 

call  OUMPFIT  (FIT,  RM) 

CALL  JUMPFIT  (FIT) 

OFSCRIPTION  OF  PARAMETERS 
FIT  - RM  FIT  ARRAY  -OR- 

FTN  FILE  NAME  (L--ORMAT)  OR  INTEGER  FORTRAN 
LOGICAL  UNIT  NUMBER 

RM  - IF  OMITTED  OR  RM=0,  FIT  IS  FOR  FTN  FILE. 

IF  RM^O,  FIT  IS  RM  FIT  ARRAY. 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  DF  language 

LOCF  MOVLEtf  SHIFT 

OTHERS 

ISTAPE  - CHANGE  INTEGER  N TO  'TAPEN* 

MPETCH  - REAP  WORD  IN  USER'S  FL 

ARITHMETIC  STATEMENT  FUNCTIONS 

FAST  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILLED) 

L61FMT  L71FMT 

FAST  R-FORMAT  DECODE  (RIGHT-ADJ,  ZERO-FILLED) 

RllFMT  R15FMT  R17FMT  R21FMT  R23FMT 

R25FMT  R27FMT  R29FMT  R35FMT  R38FMT 

R41FMT  R47FMT  R51FMT  R56FMT  R65FMT 

LANGUAGE!  fortran  IV 

OUTPUT  UNITS 

FORTRAN  LOCAL 

LOGICAL  FILE 

U-5J-I.I  -uaaE JSE 

OUTPUT  LISTABLE  OUTPUT 

CM  REQUIRED!  3162B 

AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1892.2 

DATE  WRITTEN!  11/04/75 

DATE(S)  REVISED 
04/21/76 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSROCPL , I 0=CSYS 

OB JFCT 

FDITLIB  USER  LIBRARY!  NSROC 
2-30 


OR/22/77 


OUMPFIT 


I OF  I 


SUBROUTINE  'OUMPFL* 

PURPOSE 

CftLLASLE  OCTAL  ANO  CHARACTER  3UMP  OF  SPECIFIEO  PORTION 
OF  USER'S  FIELD  LENGTH  (FL)  (SY  ACTUAL  LOCATION) 

functional  CATEGORri  N? 

USAGE 

CALL  OUMPFL  ♦♦  SEE  REMARK  1 

CALL  OUMPFL  (LWA) 

CALL  OUMPFL  (FWA,  LHA> 

OESCRIPTION  OF  PAOAMETERS 

FWA  - FIRST  WORD  ADDRESS  OF  AREA  TO  DUMP 

(SET  TO  ZERO  IF  ANY  OF  THE  FOLLOWING! 

1)  FWA  omitted; 

2)  FWA  less  than  zero; 

3)  FWA  greater  than  fl; 

4)  FWA  GREATER  THAN  .WA) 

LWA  - LAST  WORD  ADDRESS  OF  AREA  TO  DUMP 

(SET  TO  FL  IF  ONE  OF  THE  FOLLOWING! 

1)  LWA  omitted; 

2)  LWA  less  than  or  EQUAL  TO  ZERO; 

3)  LWA  GREATER  THAN  - L ; 

4)  FWA  GREATER  THAN  LWA) 

REMARKS 

1)  WHEN  CALLED  WITHOUT  AN  ARGUMENT  LIST,  THE  FTN  CARO 
FOR  THE  CALLING  PROGRAM  MUST  HAVE  THE  »Z'  PARAMETER. 

2)  DUMP  IS  AT  8 LINES  PER  INCH  ON  PRINTERS  WHICH  WILL  PRINT 
AT  THAT  DENSITY. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
LOCF 
OTHERS 

EOU60  - LOGICAL  ARRAY  COMPARE 
FTNRFL  - GET  CURRENT  EL 
MFETCH  - READ  WORD  IN  USER'S  EL 

LANGUAGE!  FORTRAN  IV 

OUTPUT  UNITS 

UNIT  • LFN  use 


OUTPUT  LISTABLE  OUTPUT 
CM  REQUIRED!  401B 


08/22//Z 
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a jrHOP 

lavio  V SOMMER  - OTNSROC  CODE  1892.2 

oara  writtfni  03/i2/76 

DaTE(S»  REVISED 
06/14/76 

LOCariON  OF  DECKS 
SOURCE 

UPOaTE  LI3RARYI  NSPOCPL , I 0=CSY S 

OBJECT 

EDITLR  USER  LIBRaPYl  NSRDC 


! 


06/14/76 


2-32 
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1 


5Ul=i>0'JTlNP  'ELTIHE* 
oURt»OSE 

TBTfilS  CPa,  CPQ,  CP,  PP,  10  ANO  WALL  CLOC<  TliES  SINCE 

FUNCTIONAL  CATEGO'’V:  QO  NO 

LAST  CALL 

UjAGF 

call  ELTIME  (TIMES) 

DESCRIPTION  OF  PAPAMETEP 

TINES  - 7-WORD  ARRAY  TO  CONTAIN  THE  FOLLOWING) 

1 - CPA  TIME  IN  SECONDS 

2 - CP9  TIKE  IN  SECONDS 

3 - CP  TIME  IN  SECONDS  (CPA+CPB) 

4 - PP  TIME  IN  SECONDS 

5-10  time  in  seconds 

ft  - WALL  CLOCK  TIME  ( HH.MM.S3.) 

7 - WALL  CLOCK  TIME  IN  SECONDS 

remarks 

NONE 

SUBROUTINE  and  EJnCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 

IHMS  - CONVERT  SECONDS  TO  ' HH.MM.SS.* 

ISEC  - CONVERT  HH.MM.SS  TO  SECONDS 
RCPA  - READ  CONTROL  POINT  AREA 

ARITHMETIC  statement  FUNCTIONS 

R65FMT  - east  R-EoRMAT  DECODE  (RIGHT-ADJ,  ZERO-FILLED) 

.ANGUAGEI  FORTRAN  IV 

CM  REDUIREDI  1059 

AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1392.2 

DATE  WRITTEN)  12/15/75 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

update  LIBRARY)  NSRDCPL , ID =CS Y S 
OBJECT 

EDITLIB  USER  LIBRARY)  NSRDC 


03/?2/77 


2-3  3 


ELTIME  - 1 


OF  1 


FUNCTION 


•EQU60* 


PURPO'5E 

LOGICAL  COMPARE  <OF  2 ARRAYS) 


FUNCTIONAL  CATEGORyi 


MO 


USAGE 

TEST  = 
TEST  = 


EOU60 

EQU60 


«A, 

(A, 


8) 


N) 


TESCRIPTION  OF  PARAMETERS 
A,B  - COMPARE  (ARRAY) 

N - NUMBER  OF  WORDS 

EQU60 


A WITH  (ARRAY) 
TO  COMPARE 


(IF  OMITTED, 

N = 

1) 

WILL  RETURN 

ONE 

OF! 

-1.  IE  A .LT. 

B 

(DISPLAY 

CODE) 

0.  IF  A .EQ. 

B 

( DISPLAY 

CODE) 

♦I.  IF  A .GT. 

3 

( display 

CODE) 

REMARKS 

NONE 

SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  REDUIREO 
PART  OF  language 
NONE 
OTHERS 
NONE 

LANGUAGE!  CDC  6000  COMPASS 

CM  REQUIRED!  2<*B 

AUTHOR 

C,  FLINK  - NWL  - KPS 


DATE  WRITTEN!  12/0B/70 


DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  library*  NSROCPL , I D=CSYS  (♦DECK 

OBJECT 

EOITLIB  user  LIBRARY!  NSROC 


COMPAB) 


OP/22/77 
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EQU60 


i 


SUBROUTINE  'EXPANO* 

PURPOSE 

EXPAND  CHARACTER  STRING  INTO  ARRAY  OF  IR-FORMAT  WORDS 
FUNCTIONAL  CATEGORY!  Hi* 

LANGUAGE!  FORTRAN  IV  EXTENDED 
REMARKS 

SEE  SUBROUTINE  'CONTRCT'. 

USAGE 

CALL  EXPAND  (A,  Q,  NCHAR) 

DESCRIPTION  OF  PARAMETERS 

A - INPUT  ARRAY  CONTAINING  THE  CHARACTER  STRING 

B - OUTPUT  ARRAY  WHOSE  ELEMENTS  WILL  EACH  CONTAIN  ONE 

CHARACTER  FROM  ARRAY  A IN  IR  FORMAT 
NCHAR  - NUMBER  OF  CHARACTERS  IN  ARRAY  A 

CM  REOUIRED!  AO B 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 

GETCHA  - GET  CHARACTER  FROM  ARRAY 

AUTHOR 

OAVIO  V SOMMER  - OTNSROC  CODE  1992.? 

DATE  WRITTEN!  04/04/77 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSROCPL , ID=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY!  NSRDC 


04/05/77 
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EXPAND 
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S'JG^OUTTnE 


»rxpR*i* 


PURPOSE 

EXTPACT  PAOAMETFR  FRO'1  SONTROL  SARD 
FUNCTIONAL  CATEGORYI  li* 

LAnGUAGEI  FORTRAN  IV  FXTENDEO 
REMARKS 

ON  EACH  call,  THE  NEXT  PARAMETER  15  PASSED  FROM  RAf^DD 
TO  WORO(S)  lAO,  LEFT  JUSTIFIED,  ZERO-FILLED.  ONCE  A 

terminator  is  encountered  or  the  end  df  a card  is  reached, 

ZERO  IS  RETURNED. 

IF  called  WITH  THE  SECOND  ARGUMENT,  PETJRNEU  IN  ICC  WILL  3E 
A CnOE  indicating  the  TYPE  OF  THE  SEPARATOR  FOUND  FOL. OWING 
THE  parameter  RETURNED  IN  lAO. 

USAGE 

CALL  EXPRM  (lAOJ 
call  EXPPM  (lAO,  ICC) 

DFSCPIPTION  OF  PARAMETERS 

lAD  - WILL  contain  THE  NEXT  PARAMETER  FROM  THE  CONTROL  CARO. 

IF  terminator  or  end  of  CARO,  0 IS  returned. 

ICC  - IF  PRESENT,  WILL  CONTAIN  A CODE  INDICATING  THE  TYPE  OF 
SEPARATOR  ENCOUNTERED 


DEC 

OCT 

SEPARATOR 

1 

1 

, 

2 

2 

= 

3 

3 

/ 

4 

4 

( 

S 

5 

6 

6 

- 

7 

7 

BLANK 

0 

lOB 

• 

14 

160 

OTHER 

IS 

173 

. OR  ) (TERMINATOR) 

CM  REOUIREOI 

\3353 

subroutine  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PAPT  OF  LANGUAGE 
LOSE  SHIFT 

OTHERS 

MFETCH  - FETCH  WORD  IN  USER'S  FL 


0n/?3/7Z 


Z-.TG 


FXPRM 


I OF  Z 


<PS 


I 

I 

I 

I 

i 


4UTH0P 

C FLTMK 


NWl 


lATE  WRITTEN*  06/73 


OflTE(S)  REVISED 

loc.&tion  of  decks 

SOURCE 

UPDATE  LIBRARY*  N5RDCPL , ID=CSYS 
OBJECT 

eoitlib  user  library*  NSROC 


0« /23/77 
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EXPRM 
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r 


SUBROUTINE  'EXTBIT* 

PURPOSE 

EXTRA3T  BITS  FROM  0 WORD 


EUNCTTONAL  CATEGORYt 


N4 


USAGE 

call  EXTBIT  (ISTART,  MBITS,  IM,  lOUT,  IRC) 

DESCRIPTION  OF  PARAMETERS 

ISTART  - FIRST/ONLY  BIT  TO  EXTRACT 
(BITS  ARE  NUMBERED  GB-O) 

N3ITS  - NUMBER  OF  BITS  TO  EXTRACT  ( 1-bO) 

IN  - INPUT  WORD  FROM  WHICM  BITS  ARE  TO  BE  EXTRACTED 

OUT  - OUTPUT  ARRAY  OF  DIMENSION  MBITS 

IRC  - RETURN  CODE 

0 - NO  ERROR 

1 - ISTART  CUT  OF  RANGE  (MUST  BE  Q-5B) 

2 - MBITS  OUT  OF  RANGE  (MUST  BE  1-60) 

3 - BOTH  ISTART  AND  MBITS  OUT  OF  RANGE 

remarks 

IF  mbits  goes  past  the  end  of  THE  WORD,  EXTBIT  WILL  FILL 
WITH  ZEROS.  THERE  IS  NO  CHECK  FOR  THIS. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

MAXO  MINO  MASK  SHIFT 

others 

NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONF 

LANGUAGEI  fortran  IV 
CM  REQUIRED*  «»<,B 
author 

QAVID  V SOMMER  - DTNSROC  CODE  1892.2 

DATE  WRITTEN*  12/09/Z5 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY* 

OBJECT 

EOITLIB  USER  LIBRARY* 


NSRDCPL,ID=CSYS 
NSRDC 


08/22/rr 
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SU8R0UTI^^E  'EXTPRM* 


PURPOSE 


EXTRACT  NEXT 

PARAMETER  FROM  USER-SUPPLIED  PARAMETER 

functional  CATEGORY! 

Ml, 

USAGE 

CALL  EXTPRM 

(lAPFA, 

LAREA,  IPARM,  ISEP) 

CALL  EXTPRM 

(I  AREA, 

LAREA,  IPARM) 

CALL  EXTPRM 

(0  , 

LAREA) 

CALL  EXTPRM 

(0) 

DESCRIPTION  OF 

PARAMETERS 

lAREA  - IN 

- ARRAY 

CONTAINING  PARAMETER 

STRING 

LAPEA  - IN 

- NUMBER 

OF  WORDS  IN  »IAPEA» 

OUT 

- FIRST 

AND  SECOND  FORMS  OF 

CALL  ONLYI 

0 IF 

END  OP  ‘lAREA*  REAC 

HE'D 

THIRD 

FORM  OF  CALLS 

SfRINS 


IPARM 

ISEP 


- OUT 

- OUT 


INITIALIZE  FOR  THIS  MANY  WORDS 
FOURTH  FORM  OF  SAIL  (OMITTEO)I 
INITIALIZE  FOR  16  M0R3S 
(BECAUSE  'LAREA*  IS  30TH  AN  INPUT  AND  OUTPUT 
APGUMENT,  IT  MUST  ALWAYS  BE  USED  AS  A 
VARIABLE,  NEVER  AS  AN  EXPLICIT  INTEGER.) 

NEXT  parameter,  LEFT- JUSTIFI ED , ZEpO-FILLEO 
IF  PRESENT,  CODE  INDICATING  TYPE  OF 
SEPARATOR  FOUND  FOLLOWING  THE  PARAMETER 
RETURNED  IN  'IPARM*  (COMPATIBLE  WITH  SCOPE 


REMARKS 

THE  SUBROUTINE 
USER  PARAMETER 
PROCESSED,  THE 


3.3 

AND  3. 

4) 

DEC 

OCT 

SEPARATOR 

1 

01 

» 

2 

02 

= 

3 

03 

/ 

I* 

04 

( 

5 

05 

♦ 

6 

06 

- 

7 

07 

BLANK 

6 

10 

• 

9 

14 

16 

OTHER 

15 

17 

. OR  ) (TERMINATOR) 

IS 

PRE-IN 

ITIALIZEO  FOR  PROCESSING 

THE 

STRING.  IF  A SECOND  STRING  IS  TO  BE 
SUBROUTINE  MUST  BE  RE - 1 N I T I A L I ZE 0 USING 


FIRST 


EITHER  THE  THIRD  OR  FOURTH  FORM  OF  THE  CALL. 

SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
LOCF 
MINO 
SHIFT 
OTHERS 
NONE 


09/22/77 
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ftPITHMFTIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGEI  FORTRAN  IV 
CM  REOUIREOt  464B 
AUTHORS 

C PLINK  - KPS  NWL 
Q V SOMMER  - NSRCC  CODE  1892.2 

OATF  WRITTENI  OS/73  - CF 

OATECS)  REVISED 

04/11/74  - OVS  - original  SUBROUTINE  'EXPRM*  MODIFIED  TO 

ACCEPT  USER-SUPPLIED  PARAMETER  STRING 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYI  NSROCPL  » n = CSYS 

OBJECT 

EDITLIB  USER  LIBRARYt  NSRDC 


12/15/75 
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SUBROUTINE  'FBINRO* 

PURPOSE 

UNPACK  AN  INPUT  ARRAY 

FUNCTIONAL  CATEGORYI  N4 

LANGUAGE.!  FORTRAN  IV  EXTENOEO 

REMARKS 

NONE 

USAGE 

call  EBINRD  (9W,  NUMB,  IN,  OUT) 

OESCPIPTION  OF  PARAMETERS 

BW  - BITS-PER-WOPD  TO  BE  EXTRACTED 
NUMB  - number  of  JW-BIT  OUTPUT  WORDS  DESIRED 
DIMENSION  OF  IN  IS  ( ( NUM 3*BW ) ♦ 59 ) / ft 0 
DIMENSION  OR  OUT  IS  NUMB 
IN  - INPUT  ARRAY 
OUT  - OUTPUT  ARRAY 


CM  PEOUIRFOt  35B 
METHOD 

THE  BW  EXTRACTED  BITS  ARE  RIGHT  JUSTIFIED  WITH  LEADING 
ZEROS  IN  OUT. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REDUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 
NONE 

AUTHOR 

A.  CINCOTTA  - OTNSRDC  CODE  1992.3 

DATE  WRITTEN!  03/75 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NS’DCpL , I 0=CSYS 
OBJECT 

EDITLIB  USER  LIBRARY!  NSRDC 


09/23/77 


2-41 


F8INRD 


I OF  I 


SU^POUTINE  •FFT5* 


OURPOSF 

FAST  FOURIER  TRANSFORM 


FUNCTIONAL  CATEGORYI  E2 
LANGUAGE!  FORTRAN  IW  EXTENOEO 

remarks 

NONE 


USAGE 

call  PFT5 


(F,  NPTS,  KOMPLX) 


OESCRIPTION 

P 


NPTS 


STORED  IN 


KOMPLX 


OF  PARAMETERS 

(COMPLEXI  ARRAY  TO  3E  TRANSFORMED 
(IF  ‘F*  IS  REAL,  THE  VALUES  MUST  BE 
CONTIGUOUS  CORE  LOCATIONS) 

NUMBER  OF  WORDS  IN  »F»  TO  OF  TRANSFORMED. 
MUST  BE  POWER  OF  2 AND  LE  8192. 

INVERSE  TRANSFORM,  NPTS  MUST 


IS  REAL 
IS  COMPLEX 


TD 

COMPUTE 

THl 

BE 

NEGAT IVE 

• 

ONF 

OF! 

0 - 

DATA 

IN 

•F 

1 - 

DATA 

IN 

•F 

CM  REDUIREOI  4521B  (EFTS)  (♦  2303  FOR  IRVING) 
METHOD 

SFF  CM0-25-T1 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  DF  LANGUAGE 

COS  FLOAT  lABS 

PAPT  OF  PROGRAM 
IRVING 
OTHERS 
NONE 

AUTHOPS 

W.  H.  HAILE 
GEORGE  GLUCK 

DATE  WRITTEN!  1921 

DATE(S)  REVISED 

LOCATION  OF  OFCKS 
SOURCE 

TAPE  labelled  CLIBPARYUPOt  (DECK!  AMFFTS) 
OBJECT 

E0ITLI9  USER  LIBRARY!  NSRDC 


06/9P/77 


2-4? 


FFTS 


I OF  1 


SUB90UTIMF  ‘FINOC 


PURPOSE 

FIND  PRESENCE  OR  HBSENCE  OF  SPECIFIED  C^ARACTER  IN  AN  ARRAY 
(USER  SPECIFIES  RELATIONAL  OPERAND) 

FUNCTIONAL  CATEGORYI  NS 

USAGE 

CALL  FINDC  (A,  NA,  CHAR,  NC,  NW,  REL , FIRSTCH) 

CALL  FINDC  (A,  NA,  CHAR,  NC , NW,  REL) 


DESCRIPTION 

A 

NA 

CHAR 


NC 


OF  PARAMETERS 

- ARRAY  TO  BE  SEARCHED 

- NUMBER  OF  WORDS  IN  'A*  TO  3E  SEARCHED 

- CHARACTER  TO  BE  SEARCHED  FOR  ACCORDING  TO  »REL* 
(LEFT-AOJ,  BLANK-  OR  ZERO-FILLED  -OR- 
RIGHT-ADJ,  ZERO-FILLED) 

OUTPUT  POSITION  OF  FIRST  CHARACTER  (RELATIVE  TO 
START  OF  »A»)  WHICH  SATISFIES  THE  RELATION 
•REL'  -OR- 

0 - CONDITION  IS  NOT  SATISFIED  -OR- 

-1  - 'REL*  IS  invalid 


-2  - 

•FIRSTCH*  GT  10»NA 

NW 

- OUTPUT 

SUBSCRIPT  OF  WORD  CONTAININ 

G POSITION 

•NC* 

-OR- 

0 - 

CONDinON  IS  NOT  SATI 

sfied 

-OR- 

-1  - 

'REL*  IS  invalid 

-2  - 

•FIRSTCH*  GT  tO*NA 

REL 

- RELATIONAL  OPERAND 

-pQ-  - 

FIND  FIRST  CHARACTER 
•CHAR* 

IN 

'A* 

EOUAL  TO 

"NE"  - 

FIND  FIRST  CHARACTER 
•CHAR* 

IN 

•A* 

NOT  EQUAL 

TO 

“LT"  - 

FIND  FIRST  CHARACTER 
•CHAR* 

IN 

•A* 

LESS  THAN 

-LE"  - 

FIND  FIRST  CHARACTER 
EQUAL  TO  'CHAR* 

IN 

•A  • 

LESS  THAN 

OR 

“GT-  - 

FIND  FIRST  CHARACTER 

IN 

•A* 

GREATER  THAN 

•CHAR* 

••GE“  - 

FIND  FIRST  CHARACTER 

IN 

•A  • 

GREATER  THAN 

OR  EQUAL  TO 
FIRSTCH  - FIRST  CHARACTER  TO 
(OEFAULTl  1) 

IF  FRSTCH  < 1,  DEFAULT 


•CHAR* 

BE  SEARCHED 


(OPTIONAL) 


IS  USED. 


REMARKS 

NONE 


Qtl/72/77 


2- AT 


FINDC 


1 OF  2 


1 


SUgfOlJTINF  ANO  FjnCTION  SJf3PRO&-?AfiS  REQUnFU 
PART  OF  language 
LOGF 

others 

GETCHA  - GET  CHARAG’’ER  FR3N  ARRAY 

ARITHMETIC  STATEMENT  FUNCTIONS 

LllFMT  - FAST  L-FORMAT  OECOOE  (LEFT-AQJ,  ZERO-FILLED) 
L21FMT  - FAST  L-FORMAT  OECOOE  (LEFT-ADJ,  ZERO-FILLED) 
RllFMT  - FAST  R-FORMAT  OECOOE  (RIGHT-AOJ,  ZERO-FILLED) 

.anguagei  fortran  iv 

CM  REOUIREOI  2618 
AUTHORS 

OAVIO  \t  SOMMER  - OTNSRDC  CODE  1892.2 
PETE  ROTH  - DTNSROC  COOE  1220. 3 

DATA  WRITTENI  04/20/76 

OATF(S)  REVISED 

07/22/76  - PR/OVS  - AOO  PARAMETER  'FIRSTCH' 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIPRARYI  NSRDCPL , I D=CSY3 

08JECT 

EOITLIB  USER  LIBRARY!  NSROC 


07/26/76 


2-44 


FINDC 


2 OF  2 


SUB=?OUTINF  'FINDW' 


»IJ‘?OOSF 

find  Presence  oPs  assENCE  of  specified  horo  in  an  appar 

(USER  SPECIFIES  PEiaTIONaL  OPERAND) 


FUNCTIONAL  CATEGORY! 


H5 


USAGE 

CALL  FINOW  (A,  NA,  H,  NM , RED 


OFSCPTPTION  OF  parameters 
A 


ARRAY 

TO  BE  SEARCHED 

number 

OF  WORDS  IN  *a» 

TO 

BE  SEARCHED 

WORD  T 

0 BE  TESTED  FOR  A 

CCORDING  TO  • 

REL 

• 

OUTPUT 

POSITION  (SUBSCRIPT)  OF  FIRST 

WORD  IN 

•A' 

WHICH 

SATISFIES  the  RELATION  ‘PEL* 

-OR 

- 

0 - 

CONDITION  IS  NOT 

SATISFIED  - 

OR- 

-1 - 

•REL*  IS  INVALID 

RELATI 

ONAL  OPERAND 

“EQ"  - 

find  FIRST  WORD 

IN 

•A*  WHICH 

IS 

EQUAL 

TO  • 

W » 

“NE”  > 

find  first  word 

•w* 

FTNO  FIRST  WORD 

IN 

•A»  WHICH 

IS 

NOT  EQUAL 

TO 

“LT”  - 

IN 

•a*  WHICH 

IS 

LESS 

THAN 

•W* 

-LE“  - 

FIND  FIRST  WORD 
EQUAL  TO  'W* 

IN 

'A'  WHICH 

IS 

LESS 

THAN 

OR 

"GT"  - 

find  first  word 

• U f 

IN 

•a»  WHICH 

IS 

GREATER  TH 

AN 

1 

z 

fl 

find  first  word 

IN 

'A'  WHICH 

IS 

GREATER  THAN 

OR  EQUAL  TO  »W» 

REMARKS 

NONE 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REauiREO 
PART  OF  LANGUAGE 


NONE 

OTHERS 

NONE 


ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 


LANGUAGE!  FORTRAN  I¥ 
CM  REOUIREOI  ?01B 


AUTHOR 

OAVTO  V SOMMFR 


DTNSROC  CODE  1B02.? 
OATP  WRITTEN!  02/Z0/TG 
DATECS)  REVISED 


LOCATION  OF  OECKS 
SOURCE 

UPDATE  LIBRAPY! 

OBUECT 

EOITLIB  USER  LIBRARY! 

2-t*5 


NSROCPL,IO=CSYS 


0“ /ZZ/77 


NSROC 


FINOW 


1 OF  1 


SUB=>OUTINF  »FINDWRD* 


“L)=>POSF 

find  specified  HORO  in  ftN  ARRAY 
FUNCTIONAL  CATEGORY!  H5 
USAGE 

gall  FTNOKRO  (A,  NA,  WORD,  NWORD) 

OESCRIPTION  OF  PARAMETERS 

A - ARRAY  TO  8F  SEARCHED 

NA  - number  of  words  IN  'A*  TO  BE  SEARCHED 
WOOD  - WORO  TO  BE  SEARCHED  FOR 

NWORD  - OUTPUT  SUBSCRIPT  OF  FIRST  OCCURRENCE  OF  WORO 
IN  'A*  (IF  NO  MATCH,  ZERO  (0)  IS  RETURNED) 

REMARKS 

NONE 

SUBROUTINE  and  FUNCTION  SUBPROGRAMS  REOUIRED 
PAPT  OF  LANGUAGE 
NONE 
OTHERS 
NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONF 

LANGUAGE!  FORTRAN  IV 
CM  REOUIRED!  40B 
AIJTHOR 

DAVID  V SOMMER  - NSRDC  CODE  199Z.2 

date  WRITTEN!  O7/O0/Z4 

OATE<S)  REVISED 

location  of  dfcks 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , ID=CSYS 
OBJECT 

EOITLI3  USER  LIBRARY!  NSRDC 


SUB»OUTISF  'PRESNEL 


PURPOSE 

FVaLUATE  FRESNEL  INTEGRALS 
FUNCTIONAL  CATEGORYI  CT 

language*  fortran  IV 

REMARKS 

C(X)  = INTEGRAL  (FROM  0 TO  X)  C 0 S ( ( P I / 2 ) U* » 2 ) OU 
S(X)  = integral  (FROM  0 TO  X)  S I N ( ( P I / 2 ) J* * 2 > DU 


I RELATIVE 

I USAGE 

I CALL  FRES 

1 

I DESCRIPTION 

I X - real 

I C - REAL 

I S - REAL 

CM  REOUIREOI 

method 

TRUNCATED 


ERP 

PR 

< 2. 

E-10. 

NEL 

( X 

» c , 

S! 

OF 

PAR 

A MET 

ERS 

INPUT 

PARA 

METER 

OUT 

PUT 

PAR 

ameter 

(C 

(X)  ) 

OUT 

PJT 

PAR 

AMETER 

(S 

( X)  ) 

27 

19 

CH 

E3Y 

SHEV 

SERIES 

REFERENCE 

3ULRISCH,  R.,  “NUMERICAL  CALCULATION  OF  THE  SINE,  COSINE  ANO 
FRESNEL  INTEGRALS",  NUMERISCHE  MATHEMATIK,  9,  19G7,  PP. 
TM0-T35. 

SU8P0UTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

A3S  AINT  COS  FLOAT  SIN 

OTHERS 
NONE 

AUTHOR 

R DULIRSCH  - UNIVERSITY  OF  CALIFORNIA  AT  SAN  DIEGO 


OATE  WRITTENI  01/88 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

TAPE  LABELLED!  CLI9RARYUP03 
OBJECT 

E0ITLI3  USER  LIBRARY!  NSROC 


I 

J 


SUB?0UTINE  'FTNRFL* 


PURPOSE 

GET/SET  CORE  SIZE 
functional  CATEGORY!  QO 
USAGE 

CALL  PTNRFL  (lEL) 

TESCRIPTION  OF  PA»AMETEP 

IFL  - INTEGER  FIELD  LENGTH  DESIRED. 

IF  THE  VALUE  OF  IFL  IS  ZERO  (Q),  THE  EL  IS  NOT 
BUT  THE  present  FIELD  LENGTH  IS  RETURNED  IN  IFL 

RENAR^S 

NONE 

SUBROUTINE  AnQ  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHEZS 
NONE 

LANGUAGE!  CDC  6000  COMPASS 
CM  REQUIRED!  20B 


AUTHOR 

R flINK  ~ KPS  MWl 


DATE  WRITTEN!  12/18/70 


OATF(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSROCPL , I D=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY!  NSROC 


0«/22/77 


2-48 


FTNRFL  - 


HA  NGEO 


1 OF  1 

A 


-UNCTION  '5flMCa=?' 
f’URPOSE 

COMPLEX  GaM*ia  FUNCTION  OF  ft  COMPLEX  ARGUMENT  HAVING  POSITIVE 

^eal  »apt 

i^UNCTIONAL  CATEGOPYl  CT 
LANGUAGEI  FORTRAN  IV 


REMAO<S 

HAS  3FEN  CHECKFO  FOR  CX  = A ♦ 31,  0<a<20,  a<3<20  . 

RELATIVE  E^ROR  IS  < 2*10**-10. 

USAGE 

COMPLEX  CX,  CY,  GA^CAR 

• • • 

CY  = GAMCAP  (CX) 

OFSCRIPTION  OF  PftPAMETEPS 

CX  - complex  VARIABLE  WITH  POSITIVE  REAL  PART 
CY  - COMPLEX  SOLUTION 

CM  REQUIREOt  2333 

METHOD 

GAMCARtZ*!)  = {Z+5.5) **(Z+l/2)  * 

E**-(Z*5,5)  * 

SORT(2*PI)  * 

(CONSTANT  ♦ SUM  (1=1,6)  (CI/Z*!)) 

WHERE  CONSTANT  = 1.00000  00001  73 

C(l)  = 76.18009  17294  06 

C(2)  = -36.50632  03271  12 

0(3)  = 24.01409  82222  3 

C(4)  = -1.23173  95161  4 

C(5)  = 0.00120  8580C  3 

C(6)  = -0.00000  53653  2 

PEFFPFNCES 

C.  LANCZOS,  NUMERICAL  ANALYSIS,  SIAM  SERIES  B,  VOL  I,  PP. 
86-96,  1964. 

HANDBOOK  OF  MATHEMATICAL  FUNCTIONS,  NATIONAL  BUREAU  0- 
STANDAPOS,  applied  MATHEMATICS  SERIES  NO.  55. 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
CEXP  CLOG 

OTHERS 
NONE 


07/18/77 
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GAMCAR 


1 OF  2 


4UTH0RS 

? L PE  XT  ON 
0 fl  WILBER 


LAWRENCE 

LAWRENCE 


RflOIftTION 

RADIATION 


LABOPATORT 

laboratory 


DATE  WRITTEN!  12/16/64 


(RLP) 


OATE(S)  REVISED 
OS/65  (DAW) 


location  of  decks 

SOURCE 

TAPE  LABELLED!  CLIBRARYUPOJ 
OBJECT 
NSROC 


07/1S/77 


2-50 


SAMCAR 


2 OF 


"UNCTION 


•GAMMA • 


PURPOSE 

INCOMPLETE  GAMMA  FUNCTION 
FUNCTIONAL  CATEGORYI  C3 
LANGUAGE!  FORTRAN  IV 
REMARKS 

COMPUTES  gamma  (A,  X)  UNDER  TME  FOLLOWING  RESTRICTIONS  I 
1)  X > 0, 

2»  WHEN  X = 0,  A IS  NOT  A NON-NEGATIVE  INTEGER. 

USAGE 

Y = GAMMA  (A,  X) 

DESCRIPTION  OF  PARAMETERS 
A - INTEGER  > 0 

X - > 0 (X=0  FOR  COMPLETE  GAMMA  FUNCTION) 

CM  REOUIREOI  ss/a  (includes  GAMNEG/GCHEB/GFRAC/GSERIES) 
REFERENCE 

C.  E.  FROBERG,  RATIONAL  CHEBYCHEV  APPROXIMATION  OF 
ELEMENTARY  FUNCTIONS,  BIT,  VOL.  1,  P.  256,  1961. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

A9S  ALOG  SORT 

PAPT  OF  PROGRAM 

GAMNEG  - COMPUTES  GAMMA(A,X)  MMEN  A IS  NEGATIVE  INTEGER 
(DUE  TO  THE  REPRESENTATION  OF  NUMBERS  IN  THE 
6600,  IF  A=-NiE,  WHERE  E<1.0E-10,  THEN  A IS 
TAKEN  TO  BE  A NEGATIVE  INTEGER) 

GCHE8  - COMPUTES  BY  A RATIONAL  CHEBYSHEV  APPROXIMATION 
(GAMMA (A) ) 

GFRAC  - COMPUTES  THE  CONTINUES  FUNCTION  FOR  GAMMA  (A, X) 
GSERIES  - COMPUTES  SUM  (N=0,INF)  ( ( -X ) * ♦ N) / ( ( A*N) N ! ) 

OTHERS 
NONE 

AUTHOR 

HARVEY  ABRAMSON  - NEW  YORK  UNIVERSITY 

DATE  WRITTEN)  05X15/66 

DATE(S)  REVISED 
05/67 

LOCATION  OF  DECKS 
SOURCE 

TAPE  LABELLED)  CLIBRARYUPD3 
OBJECT 
NSRDC 


SUBROUTINE  *GAUSS 


PURPOSE 

GAUSSIAN  ELIMINATION  WITH  PARTIAL  PIVOTING  FOR  SOLVING 

flx=B  where  b may  be  a system  of  m right-hand  sides 

functional  CATEGORIES!  F(»  F3 
LANGUAGE!  FORTRAN  IV 
=>EMARKS 

IF  A-INVERSE  IS  OESIREO:  ANX=CB  IN>  WIlL  YIELD 
THE  SOLUTION  TO  AX=B  AS  WELL  AS  THE  INVERSE. 

IF  MM=0,  XX  CONTAINS  RESULT  OF  FIRST  GAUSSIAN  ELIMINATION. 


usage 

CALL  GAUSS  (N,  M,  AA,  03,  XX,  VAl2,  DEI,  MH) 

DESCRIPTION  OF  parameters 
N - SIZE  OS'  MATRIX  AA 

M - NUMBER  OF  COLUMNS  IN  83  (<=51) 

(NUMBER  OF  RIGHT  HANO  SIDES) 

AA  - MATRIX  (51X51) 

83  - RIGHT  HAND  SIOE(5)  (51X51) 

XX  - SOLUTION  VECTORS  (51X51) 

VAL2  - final  maximum  ROW  SUM  OF  RESIDUALS 
(INFINITY-NORM  OF  RESIDUAL) 

DET  - DETERMINANT 

MM  - NUMBER  OF  ITERATIONS  ON  RESIDUALS 

input  - MAXIMUM  number  TO  BE  PERMITTED 
OUTPUT  - NUMBER  ACTUALLY  DONE 

CM  PEOUIRFOl  177148 

REFERENCE  I 

WILKINSON,  J.  H.,  ROUNDING  ERRORS  IN  ALGEBRAIC  PROCESSES. 

SUSPOUTINE  and  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
A3S 
OTHERS 
NONE 

AUTHORS 

ROBERT  MARGOLIS  - UNIVERSITY  OF  MARYLAND 
SUSAN  VOTGHT  - DTNSRDC 

DATF  WRITTEN!  1971 

DATE(S)  REVISED 

location  OF  DECKS 
SOURCE 

TAPE  labelled*  CLIBRARYUPD3  (OECKNAMF!  AMGAU2) 
OBJECT 

EOITLIB  user  LIBRARY!  NSRDC 


05/19/77 


2-52 


GAUSS 


1 OE  1 


SURROUTINF  'GFTCHft* 

FUNQTTON  'GETCHtt* 

PURPOSE 

EXTRASr  CHARACTER  FROM  SPECIFIEO  POSITION  IN  AN  ARRAY 
FUNCTIONAL  CJTEGORIFSl  M4  M5 
USAGE 

CALL  SETCHA  (A,  N,  CH) 

VARIA3LE  = GFTCHA  (A,  N,  CH) 

DESCRIPTION  OP  parameters 

A - ARRAY  FROM  WHICH  CHARACTER  IS  TO  BE  EXTRACTED 
N - POSITION  OF  CHARACTER  TO  BE  EXTRACTED 

(POSITION  1 IS  LEFT-MOST  6-BIT  CHARACTER  IN  A(l)) 

CH  - WILL  contain  the  EXTRACTED  CHARACTFR  IN  IR  FORMAT 

(WHEN  USED  AS  A FUNCTION,  GETCHA  WILL  CONTAIN  THE  SAME 
AS  CH) 

remarks 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
MOD  SHIFT 

OTHERS 
NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE!  FORTRAN  IV 
CM  REQUIRED!  62B 

author 

DAVID  V SOMMER  - OTNSRDC  CODE  1692.2 

DATE  WRITTEN!  03/16/76 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , IO=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY!  NSRDC 


1 


SUBROUTINE  'GETCHR* 
FUNCTION  'GETCNR* 


PURPO'IE 

EXTRACT  CHARACTER  FROM  SPECIFIED  POSITION  IN  A WORD 
FUNCTIONAL  CATEGORIEAJ  M4  H5 

usage 

CALL  GETCHR  (A,  N,  CH) 

VARIA3LE  = GETCHR  (A,  N,  CH) 

DESCRIPTION  OF  PARAMETERS 

A - WORD  FROM  WHICH  CHARACTER  IS  TO  3E  EXTRACTED 
N - POSITION  OF  Character  to  be  extracted 

(POSITION  1 IS  LEFT-MOST  6-BIT  CHARACTER  IN  A) 

CH  - HILL  CONTAIN  THE  EXTRACTED  CHARACTER  IN  IH  FORMAT 

(WHEN  USED  AS  A FUNCTION,  GETCHR  WILL  CONTAIN  THE  SAME 
AS  CH) 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
SHIFT 

others 

NONE 

ApITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE)  FORTRAN  IV 
CM  REQUIRED)  43B 
AUTHOR 

FROM  BIMEO  PACKAGE 
DATE  WRITTEN) 

OATE(S)  REVISED 

1975  - DAVID  V SOMMER  - DTN3R0C  CODE  1992.2 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY)  NSROCPL ,ID=CSYS 
OBJECT 

EOITLIB  user  LIBRARY)  NSRDC 


J 

j 
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subroutine  ‘GETFIT* 


PURPOSE 

GET  SPECIFIED  FIT  ADDRESS 
FUNCTIONAL  CATEGORY!  00 
USAGE 

CALL  GETFIT  (LFN,  ADDR) 

DESCRIPTION  OF  PARAMETERS 
LFN  - LOCAL  FILE  NAME 

(LEFT-JUSTIFIED,  ZERO-FILLED) 
(E.G.,  SLTAPEl) 

ADDR  - WILL  CONTAIN  THE  FIT  ADDRESS 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

part  of  language 

NONE 

OTHERS 

NONE 

LAnGUAGEJ  COMPASS 
CM  REDUIREDI  25B 
AUTHOR 

ANTHONY  CINCOTTA  - NSROC  CODE  1892.3 

DATE  WRITTEN!  03/20/75 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , ID=CSYS 
OBJECT 

EDITLI9  USER  LIBRARY!  NSROC 


06/22/77 


2-55 


GETFIT 


1 OF  1 


SUBRO'JTINt  'GFTHOUR* 


PUOPOSF 

FOR  A SPEGIFIEO  PERIOD  OF  TIME  (UP  TO  2 HR  59  TIN  59  3EC) 

determine  whigh  hour  is  occupied  the  longest 
functional  CATEGORYI  12 
usage 

CALL  GFTmour  (FROM,  TO,  HOUR) 

dpsckiption  of  parameters 

from  - starting  time  ('HH.MM.SS  * HH.MH.SS  * OR 
* HH.MM.SS*) 

TO  - STOPPING  TIME  (SAME  FORMAT  AS  'FROM') 

HOUR  - WILL  CONTAIN  AN  INTEGER  HOUR 

0 - TIME  PPPIOO  TOO  LONG  TO  DETERMINE  HOUR 
N - MOST/ALL  time  IS  IN  THE  HOUR  N-1  TO  N 
(E.G.,  HOUR=8  MEANS  MOST/ALL  TIME  IS  IN 
THE  HOUR  7-8) 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
AND  SHIFT 

OTHERS 

ISEC  - CONVERT  HH.MM.SS  TO  SECONDS 

ARITHMETIC  STATEMENT  FUNCTIONS 
I21FMT  - FAST  I-FORMAT  DECODE 

LllFMT  - fast  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILLED) 
_ANGUAGE«  FORTRAN  IV 
METHOD 

THE  HOURS  IN  FROM  (HF)  AND  TO  (HI)  ARE  COMPARED. 

IF  EQUAL,  HOUR  IS  SET  TO  HTfl. 

IF  THE  difference  IS  1,  THE  AMOUNT  OF  TIME  SPENT  IN  EACH 
HOUR  IS  COMPARED  AND  THE  HOUR  IS  SET  TO  THE  LARGERfl. 

IF  AN  EQUAL  AMOUNT  OF  TIME  IS  SPENT  IN  EACH  HOUR,  HOUR  IS 
SET  TO  HTH. 

IF  THE  DIFFERENCE  IS  2,  HOUR  IS  SET  TD  THE  MIDDLE  HOURfl. 
CM  REQUIREDI  121B 


11 /ifi/re 


2-56 


GETHOUR 


I OF 


ft JTHOR 

TflVIO  V SOM.-iFR  - QTNSR^C  CODE  1592.2 

DftTE  WRITTENt  07/23/7b 

OftTE(S)  -(Ei/ISEO 
11/16776 

L^CflTIO^^  OF  OFCKS 
SOURCE 

UPDftTE  LIORfiRY:  NSROC^L , I 0=CSYS 

09JFCT 

FOITLTB  user  LIBRARYt  NSROC 


11/16/76 


2-57 


GETHOUR 


2 OF  2 


sugroutine 


•GETLFNS* 


PURPOSE 

GET  ajTUfiL  LOCftL  FILE  MflMES  (FOR  FTN) 

FUNCTIONJAL  CATEGORri  13 
USAGE 

CALL  GETLFNS  (LFN,  NLFNI 
call  GETLFNS  (LFN) 

DESCRIPTION  OF  PAPANETERS 

LFN  - APRAY  DIMENSIONED  AT  LEAST  1 GREATER  THAN 
NUMBER  OF  FILES  ON  FTN  PROGRAM  STATEMENT 
(ARRAY(NLFN)  WILL  BE  SET  TO  0) 

NLFn  - IF  PRESENT,  HILL  RETURN  NUMBER  OF  FILE  NAMES  ♦ 1 

REMARKS 

USEFUL  ONLY  IN  PROGRAMS  WHICH  ALLOW  FILE  NAME  REPLACEMENT 
IN  THE  'LGO*  CAPO. 

SUBPOUTINE  AND  FUNCTION  SU3PROGPAMS  REQUIRED 
MFETCH  - GET  WORD  IN  USER'S  F. 

LANGUAGE)  FORTRAN  lY 

METHOD 

FILE  NAMES  FROM  PROGRAM  CARO  ARE  IN  RA+2  ON.  EACH  HAS  A 
POINTER  TO  ITS  FIT.  THE  FIRST  WORD  OF  EACH  FIT  IS  THE 
ACTUAL  FILE  NAME.  THE  LIST,  STARTING  IN  RA*2,  ENOS  IN  A 
WOPO  OF  ZEROS. 

EXAMPLES 

PROGRAM  SAMPLE  (INPUT,  OUTPUT,  TAPED 
DIMENSION  LFN(4) 


CALL  GFTLFNS 

• • • 

(LFN,  NLFN) 

EXECUTE  CARD) 

LGO. 

LG0,,0UT,TAPE6. 

AFTER  CALL) 

LFN(l)  = 

5LINPUT 

LFN(1) 

= 5LINPUT 

LFN(2)  = 

6L0UTPUT 

LFN(2) 

= 3L0UT 

LFN(3)  = 

5LTAPE1 

LFN(3) 

= 5LTAPE6 

LFN(4)  = 

0 

LFN(4) 

= 0 

NLFN  = 

4 

NLFN 

= 4 

CM  REQUIRED)  54B 
AUTHOR 

DAVID  V SOMMER  - NSRDC  CODE  1992.2 

DATE  WRITTEN)  12X30/74 

DATE(S)  REVISED 
12/29/75 


LOCATION  OF  DECKS 

SOURCE)  tape  labelled  csysnsrocpl;  P.F. 

OBJECT)  EOITLIB  USER  LIBRARY)  NSRDC 
08/22/77  2-58 


NSROCPL,ID=CSrS 
1 OF 


h. 


GETLFNS 


SUBROUTINE  'GETL30* 


PURPOSE 

EXTRAS!  FIRST  10  CHARACTERS  OF  ALL  EXECUTE  CARD 

parameters 

FUNCTIONAL  CATEGORY*  QO 
language*  fortran  IV  EXTENDED  i 


REMARKS 

NONE 


USAGE 

CALL  GETLGO  (LGO,  NLGO) 

DESCRIPTION  OF  PARAMETERS 

LGO  - ARRAY  TO  CONTAIN  EXECUTE  CARD  PARAMETERS 
LGO(l)  CONTAINS  EXECUTE  NAME 

LGO(2)-LGN(NLGO)  CONTAIN  FIRST  10  CHARACTERS 
OF  EACH  PARAMETER  (0  MEANS  PARAMETER  OMITTED) 
NLGO  - NUMBER  OF  WORDS  OF  LGO  FILLED 


CM  REOUIRED*  TGB 
METHOD 

parameters  are  extracted  from  RA+703  thru  RA»77g. 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 

EXPRM  - GET  NEXT  PARAMETER  FROM  EXECUTE  CARD 


AUTHOR 

DAVID  V SOMMER  - OTNSRDC  CODE  1892.2 
DATE  WRITTEN*  09/01/77 
OATF<S)  REVISED 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  LI3RARYI  NSRDCPL , I D = CS YS 

OBJECT 

E0ITLI9  USER  LIBRARY*  NSRDC 


09/27/77 


2-S9 


GETLGO 


1 OF  1 


SUBPOUTINF  'GFTRA 


PUPPOSE 

GET  FIRST  1003  WOROS  OF  USER'S  EL 

functional  rATEGORYI  K2 

LANGUAGEt  CDC  6000  CP  COMPASS 

REMARKS 

NONE 

JSttGE 

CALL  GETRA  (RA» 

DESCRIPTION  OF  PARAMETER 

RA  - 6«*-W0R3  APRAY  TO  HOLD  FIRST  lOOB  WORDS  OF  FL 
CM  REQUIRED!  73 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PAPT  DF  language 
NONE 
OTMER3 
NONE 

AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1392.2 

DATE  WRITTEN!  10/03/73 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

update  LIBRARY!  NSRUCPL , I D= C SY S 
OBJECT 

EDITLI3  USER  LIBRARY!  NSROC 


5Ua?0UTINF  ‘jODROP* 

P'JRPOSF 

CREATE  GO/OROP  MESSAGE  ANQ  PROCESS  RESPO'^SE 


FUNCTIONAL  CATEGORY:  OO 


language:  fortran  IV  EXTENOEO 


oEmAPKS 

NOT  DESIGNP3  FOR  9ATCH  JOBS. 


IN  INTEPCOM,  HILL  GENERATE  MESSAGE  AT  THE  TERMINAL,  NOT  AT 
the  central  SITE  CONSOLE. 


when  JSEO  with  NO  ARGUMENT  LIST,  THE  'Z'  PARAMETER  MUST  BE 
USEO  ON  THE  FTN  CARD. 


USAGE 

CALL  GODROP  (MESSAGE) 

CALL  GOOOOP 

DESCRIPTION  OF  PARAMETER 

MESSAGE  - IF  USED,  CONTENTS  HILL  BE  DISPLAYED  (SHOULD  BE  A 
ZFPO-BYTF  terminated  FIELD) 

IF  OMITTED,  THE  MESSAGE  IS  TAKEN  FROM  RA«-703  THRU 
RAtZ7B  ANO  PREFIXED  WITH  'GO/DROP-  ».  THE 
MESSAGE  MAY  BE  INSERTED  BY 

'CALL  PUTP.A  (MESSAGE,  703,  7&B)* 

CM  required:  1423 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

LOCF  REMARK 

OTHERS 

MFETCH  - READ  A WORD  IN  USER'S  FL 
MSET  - SET  WORD  IN  USER'S  FL 

AUTHOR 

C flick  - KPS  NWL 

DATE  written:  06/73 

DATE(S)  REVISED 

LOCATION  OF  OECKS 
SOURCE 

UPDATE  library:  NSRDCPL , rO=OSYS 

OB  JFCT 

eoitlib  user  library:  nsrd: 


03/01/77 


2-61 


GODROP  - I OF  I 


I 


=5IJBR0UTTSE  'HERE* 

FUNCTION  'HERE* 

PURPOSE 

GET  TERMINAL  10  FOR  THIS  JOB 
FUNCTIONAL  CATEGORy*  QO 
USAGE 

call  HFRF  (I) 

VARIABLE  = HERE  (I) 

0F5CRIPTI0N  OF  PARAMETERS 

I - WILL  CONTAIN  THE  TERMINAL  10,  L EFT - J JS T I F I E 0 , 

ZERO-FILLEO  (ILC  = CENTRAL  SITE) 

(WHEN  USED  AS  A FUNCTION,  'HERE*  WILL  CONTAIN  THE  SAME  AS 
*1*.  'VARIABLE'  ANO  'HERE'  MUST  BE  OF  THE  SAME  TYPE.) 

REMARKS 

NONE 

SUBROUTINE  and  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
ANO  SHIFT 

OTHERS 

RC“A  - READ  CONTROL  POINT  AREA 

ARITHMETIC  STATfmFNT  FUNCTIONS 

L2SFMT  - FAST  L-FORMAT  OECOOE  (LEFT-AOJ,  ZERO-FILLEO) 

LANGUAGE)  FORTRAN  IV 

METHOD 

THE  TERMINAL  ID  IS  TAKEN  FROM  CONTROL  POINT  AREA. 

IE  THIS  FIELO  IS  ZERO,  IT  IS  A CENTRAL  SITE  JOB.  IN  THIS 
CASE,  ILC  IS  RETURNED. 

CM  REDUIRED)  31B 

AUTHOR 

DAVID  V SOMMER  - OTNSRDC  CODE  1892.2 

DATE  WRITTEN)  12/05K75 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UOOATE  LIBRARY)  NSROCPL , IO=CSYS 
OBJECT 

E0ITLI8  USEP  LIBRARY)  NSRDC 


, " /T7 


2-62 


HERE 


10-1 


FUNCTION 


*IAOC» 


PURPOSE 

COUNT  ONE-QITS  IN  SPECIFIED  WORD 
FUNCTIONAL  CATEGORfl  GG 

language*  cnc  6000  cp  compass 

REMARKS 

NONE 


USAGE 

N = lAOC 

(I» 

DESCRIPTION 

OF  PARA 

I - WORD  TO  BE  PROCESSED 
lAOC  - NUMBER  OF  ONE-BITS 

CM  pEQUIRED:  2B 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 

others 

NONE 

AUTHOR 

FROM  NWL 

DATE  WRITTEN* 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  library*  NSRDCPL , I D=C SYS 

OBJECT 

E0ITLI3  USER  LIBRARY*  NSRDC 


1 

I 

I 

I 

i 


0^/23/77 


2-6  3 


lAOC  - 1 OF  1 


1 


SUBC’OUTINF  *IBUNP‘ 


PURPOSE 

UNPACK  BYTES  ERON  ARRAY 

'FUNCTIONAL  CATEGORYI  M4 

LANGUAGEt  CDC  6000  CP  CONPASS 

REMARKS 

NONE 

USAGE 

call  IBUNP  (A1,  A2,  N) 

DESCRIPTION  OF  PARAMETERS 

A1  - INPUT  APRAY  FROM  W-IICH  BYTES  ARE  UNPACKED 
A2  - OUTPUT  ARRAY  INTO  WHICH  BYTES  ARE  PLACED, 

1 BYTE  PER  WORD,  RIGHT  JUSTIFIED,  WITH  LEADING  ZEROS 
N - NUMBER  OF  COC  WORDS  TO  UNPACK 
DIMENSION  OF  A1  IS  N 
DIMENSION  OF  A2  IS  5*N 

CM  PEOUIREOJ  123 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  DF  language 
NONE 
OTHERS 
NONE 

AUTHOR 

FROM  NWL 

DATE  WRITTPNI 

OATE(S)  REVISED 

LOCATION  OE  DECKS 
SOURCE 

UPDATE  LIPRARYI  NSRDCPL , ID=CSYS 
OBJECT 

EOITLIB  USER  LIBRARYI  NSROC 


'"I.INCTION 


•inAYWFK* 


PUPPOSF 

DETERMINE  THE  DAY  OF  THE  WEEK  FOR  ANY  OATE  FROM  10/16/1582 
TH'^U  02/28/4000 

FUNCTIONAL  CATEGORYl  G6 

language*  FORTRAN  lY  EXTENDED 

REMARKS 

NONE 

USAGE 

lOAY  = IDAYWEK  (IOATE,  ICENT) 

IDAY  = IDAYWEK  (IOATE) 

DESCRIPTION  OF  PARAMETERS 

IOATE  - DATE  TO  BE  PROCESSED  ('MM/OO/YY  ' OR  * MM/DD/YY  ' 
OR  • MN/On/YY') 

(IF  IOATE  = 0,  TODAY'S  DATE  WILL  BE  USED;  IDATE 
WILL  BE  SET  TO  TODAY'S  DATE  ' MM/OD/YY  ') 

ICENT  - CENTURY  ( E . C . , 1900) 

IF  OMITTED,  1300  IS  ASSUMED. 

IDAYWEK  - WILL  CONTAIN  THE  DAY  OF  THE  WEEK  IN  A-FORMAT 
(E.G.,  'SUNDAY  *) 

CM  REDUIREOJ  1043 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 

AND  DATE  LOCF  SHIFT 

OTHERS 

WEKOAY  - DETERMINE  DAY  OF  WEEK 

arithmetic  STATEMENT  FUNCTIONS 
FAST  I-FORMAT  DECODE 

I21FMT  I24FMT  I2/FMT 

FAST  L-FORMAT  DECODE  (LFFT-ADJ,  ZERO-FILLED) 

LllFMT 


A UTHOP 

DAVID  V SOMMER  - DTNSROC  CODE  1892.2 

DATE  WRITTEN*  04/0fi/ZZ 

DATEfS)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  Llf’RARY*  NSRDCPL  , I D = CS  YS 
OBJECT 

EOITLIB  USER  LIBRARY*  NSRDC 


08/22/Z7 


2-65 


IDAYWEK 


1 OF  1 


SUBROUTINE  ‘lOin* 

FUNCTION  'IQIO* 

PURPOSE 

GET  USER  INITIALS  «AN0  INTERCOM  USER  ID)  FROM  CHARGE  CARO 
OR  LOGIN 

functional  categoryi  oa 

LANGUAGEf  FORTRAN  IV  EXTENDED 
REMARKS 

IF  USER  initials  AND  USER  ID  ARE  ElUAL,  IT  IS  A BATCH  JOB. 
USAGE 

CALL  lOin  (ID,  lUSFRIO) 
call  IDin  (IP) 

IID  = lOID  (ID,  lUSEPIO) 

IID  = IDIO  (ID) 

DESCRIPTION  OF  PARAMETERS 

10  - WILL  CONTAIN  A-CHARACTER  USER  INITIALS  FROM 

CHARGE  CARO  OR  START  OF  LOGIN 
lUSERIO  - WILL  CONTAIN  4-CHARACTER  USER  INITIALS  FROM 
CHARGE  CARO  OF  UP  TO  lO-CHARACTER  USER  ID 
FROM  LOGIN 

(IF  10  = lUSERIO,  IT  IS  A BATCH  JOB) 

WHEN  USED  AS  A FUNCTION,  THE  CONTENTS  OF  ID  IS  ALSO  RETURNED 
AS  THE  FUNCTION  VALUE. 

CM  REOlJIREOt  2 7 8 

METHOD 

THE  ID  IS  TAKEN  FROM  THE  CONTROL  POINT  AREA. 

SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  RFQUIREO 
PART  OF  language 
LOCF 

others 

RCPA  - READ  CONTROL  POINT  AREA 

arithmetic  statement  functions 

L41FMT  - FAST  L-FORMAT  DECODE  (LEFT-AOJ,  ZERO-FILLED) 

A UTHOR 

OAVrO  V SOMMER  - DTNSRDC  CODE  1392.2 
OATF  WRITTEN!  01/28/77 
DATF(S)  REVISED 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY*  NSRDCPL , ID=CSYS 

OB  JECT 

EOITLIB  USER  LIBRARY*  NSROC 


FUNCTION 


•lOIGIT* 


PURPOSF 

CHECK  FOP  DIGITS  IN  A Flt'LD  WITHIN  A WORD 
FUNCTIONAL  CATEGORTI  MG 
USAGE 

lOIGIT  (I,  ISTART,  ISTOP) 
lOIGIT  (I,  ISTAPT) 
lOIGIT  (I) 

DESCRIPTION  OF  PARAMETERS 

I - WORD  TO  BE  ANALYZED 

ISTART  - STARTING  POSITION  OF  FIELD  TO  BE  CHECKED 
(1-10,  DEFAULT:  1) 

ISTOP  - STOP  POSITION  OF  FIEuD  TO  BE  CHECKED 

(1-10,  default:  10) 

(TESTING  WILL  STOP  IF  OOB  ENCOUNTERED) 

REMARKS 

THE  l/ALUE  RETURNED  IS  ONE  OF  THE  FOLLOWING: 

-11  - ERROR  - ISTOP  < ISTART 
-N  - ERROR  - START  NON-DIGIT  FOUND  IN  POSITION  N 
0 - ALL  POSITIONS  IN  FIELD  ARE  DIGITS 
♦N  - OOB  FOUND  IN  POSITION  N 

ALL  PRECEDING  CHARACTERS  ARE  DIGITS 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
LOCF 
MAKO 
HINO 
SHIFT 
OTHERS 
NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

language:  fortran  IV 
CM  required:  76B 
AUTHOR 

DAVID  V SOMMER  - NSRDC  CODE  1992.2 

DATE  written:  05/13/75 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  library:  NSRDCPL , ID =CSYS 

OBJECT 

EDITLIB  USER  LIBRARY:  NSRDC 


08/22/77 


2-67 


lOIGIT 


1 OF  1 


5ub5;outine:  'ifindch' 

FUNCTION  'IFINOCH* 

PURPOSE 

FINO  FIRST  OCCURRENCE  0-  SPECIFIED  CHARACTER  IN  ARRAY 
FUNCTIONAL  CATEGORVI  HS 
language:  FORTRAN  IV 
USAGE 

CALL  IFINOCH  (A,  NA,  CHAR,  NC,  NW) 

NC  = IFINOCH  (A,  NA,  CHAP,  NC,  NW) 

NC  = IFINOCH  (A,  NA,  CHAR) 


□FSCRIPTION  OF  PARAMETERS 

A - ARRAY  TO  BE  SEARCHED 

NA  - NUMBER  OF  WORDS  IN  'A*  TO  BE  SEARCHED 
CHAR  - CHA9ACTER  TO  BE  SEARCHEO  FOR  (IR  FORMAT) 

NC  - OUTPUT  POSITION  OF  FIRST  OCCURRENCE  OF  CHAR  IN  'A* 
(IF  NO  match,  zero  (0)  IS  RETURNEO) 

NW  - OUTPUT  SUBSCRIPT  OF  WORO  IN  *A*  CONTAINING  CHAR 
(IF  NO  MATCH,  NW  IS  SET  TO  NA) 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PAOT  OF  language 
LOCF 
OTHERS 

GETCHA  - GET  CHARACTER  FROM  ARRAY 
CM  REQUIREOt  1003 
AUTHOR 

OAvn  V SOMMER  - OTNSROC  CODE  1902.2 
OATE  written:  0A/20/Z6 
OATF(S)  REVISED 

ll/02/7E>  - CHANGE  TO  FUNCTION  AND  SUBROUTINE 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSROCPL , I 0=C5YS 
OBJECT 

EOITLIB  USER  LIBRARY:  NSRDC 


11 /02/7B 


IFINOCH  - 1 OF  1 


FliNCTION 


PURPOSE 

FAST  I-FORMAT  DECODE  OF  tfARIASLE  LENGTH  INPUT 

FUNCTIONAL  CATEGOPYt  14 

USAGE 

IFMTY  (I) 

DESCRIPTION  OF  PARAMETER 

I - SINGLE  WORD  CONTAINING  NUHGER  TO  3E  DECODED? 

1-10  DIGITS,  LEFT-JJSTIFIED,  ZERO  PADDED? 

A NON-OIGIT  EMBEDDED  IN  THE  FIELD  WILL  RETURN  -1 
(EG,  3L98Z  WILL  RETURN  THE  INTEGER  937? 

G.9  7654  WILL  RETURN  -1  (EMBEDDED  BLANO) 

REMARKS 

NONE 

SUBROUTINE  AND  EUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
SHIFT 
OTHERS 
NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

.ANGUAGEl  fortran  IV 
CM  REQUIREDt  61B 

author 

DAVID  V SOMMER  - NSROC  CODE  1392.2 

DATE  WRITTENI  10/74 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

TAPE  LABELLED  CSYSNSROCPL?  P.F.  NSROCPL , IO=CSYS 
OBJECT 

EDITLIB  USER  LIBRARYI  NSROC 


08/22/77 
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IFMTV 


OF  1 


1 


I 


Q7 /l^/7fi 


FUNCTION  'IHHS* 

PURPORT 

CONVERT  SECONDS  TO  * HH.MM.SS.' 
functional  CATEGORyi  H2 
USAGE 

IHMS  (ISFC) 

OFSCRIPTION  OF  PARAMETER 

ISEC  - TIME  (IN  SECONOi)  TO  BE  CONVERTED 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
OR  SHIFT 

OTHERS 
NONE 

CM  REOUIREDt  44B 
A UTHOR 

DAVID  V SOMMER  - DTNSROC  CODE  1392.2 
DATE  WRITTEN!  06/a8/7A 
OATETS)  REVISED 
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^ 


'^UNCTION 


•IPAKLFT  ' 


PURPOSE 

SQUEEZE  LEFT  AND  REMOVE  ZEROS  (OOB)  AND  BLANKS  (55B),  RETURN 
NUMBER  OF  CMARACTEPS 

'FUNCTIONAL  CATEGORYI  M4 

LANGUAGE!  FORTRAN  IV  EXTENDED 


REMARKS 

IF  ANT  BLANKS  OR  ZEROS  WERE  REMOVED,  THE  ARRAY  IS  PADDED 
WITH  TRAILING  ZEROS 

USAGE 

NCHAR  = IPAKLFT  (A) 

NCHAR  = IPAKLFT  (A,  NA) 

DESCRIPTION  OF  PARAMETERS 

A - ARRAY  TO  BE  PROCESSED 

NA  - NUMBER  OF  WORDS  TO  BE  PROCESSED 

(OMITTED  = 1) 

IPAKLFT  - NUMBER  OF  NON-BLANK  (NON-ZERO)  CHARACTERS  AFTER 
PROCESSING 

CM  REQUIREDI  107B 

EXAMPLE 

DIMENSION  A(3) 

data  a/  "THIS  IS  A SAMPLE  FIELD**/ 

NCMAR  = IPAKLFT  (A,  3) 

• • • 

AFTER  EXECUTIONI  'A*  = 1 6 LTH IS I S A S AM PL E FIEL D , IPAKLFT  = 18 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
LOCF 

others 

GETCHA  - GET  A CHARACTER 
PUTOHA  - PUT  A CHARACTER 

AUTHOR 

DAVID  V SOMMER  - OTNSROC  CODE  1392.2 

DATE  WRITTENI  07/25/77 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIRRAPYl  NSROCPL , I D=C SYS 
03UECT 

EOITLIB  USER  LIGRARYI  NSRDC 


07/29/77  2-71  IPAKLFT  - 1 OF  1 


I 


-UNCTION 


PURPOSE 

CONVERT  ROHAN  NUMBERS  TO  INTESER 
functional  CATEGORYI  M2 

language:  fortran  iv 


remarks 

valioity  op  the  roman  number  is  not  checked,  invalid  roman 

NUMERALS  ARE  IGNORED.  ROMAN  NUMBER  ENOS  WHEN  FIRST 

blank  or  avB  IS  encountered. 

USAGE 

IVAP  = IROMAN  (NUMBER) 

description  of  parameters 

IROMAN  - HILL  CONTAIN  INTEGER  EQUIVALENT  OF  S'UPPLIEO 

roman  numbfp 

NUMBER  - roman  NUMBEP  TO  BE  CONVERTED 
CM  REOUIREO:  1313 

examples 

MCMLXXVI  HILL  PETUPN  THE  INTEGER  1976 

Y M »•  t*  ^ 

FTC. 


subroutine  and  function  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 

GETCHA  - EXTRACT  CHARACTER  FROM  AN  ARRAY 

AIJTHOP 

DAVID  V SOMMER  - DTNSROC  CODE  1392.2 

DATE  HRITTENt  12/02/76 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , I 0=CSYS 
OBUECT 

EDITLIB  USER  LIBRARY!  NSROC 


12/02/76 


IROMAN 
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FUNCTION 


ISEC* 


PURPOSE 

CONVERT  HH.MM.SS  TO  SECONDS 
P'JNCTICN4L  CftTEGOPYl  M2 
USAGE 

ISFC  (ITTME) 

0£SC??IPTrON  OF  PARAMETEP 

ITINE  - time  to  be  CONVERTED 

(MAY  BE  ‘HH.MM.SS.  *,  * HH.MH.SS.*,  OR  • HH.MM.SS’) 

remarks 

NONE 

SUBROUTINE  and  PUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
AND  SHIFT 

others 

NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
EAST  I-EORMAT  DECODE 

I21FMT  I24FMT  I27PMT 

EAST  L-EORMAT  OECODE  (LEFT-ADJ,  ZERO-FILLED) 

LllPMT 

CM  REQUIRED!  <*00 
AUTHOR 

DAVID  V SOMMER  - NSROC  CODE  1392.2 

date  RRITTFNI  0F/01/Z4 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSROCPL , I 0=CSYS 
OBJECT 

E0ITLT3  USER  LIBRARY!  NSROC 


!)7/16/ZF 
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( 


'^UNCTION 


ISIT3NF 


P’JRPOSF 

SEE  IF  specified  FILE  IS  CONNECTED 
-UNCTION4L  CftTEGORYI  QO 
DSflGE 

ISITCNF  (I) 

DESCRIPTION  OF  PARAMETER 

I - FILF  TO  OE  CHECKED  (EG,  5LTAPE1) 

REMARKS 

THE  file  being  TESTED  MUST  BE  OPENED  BEFORE  USING 
THIS  FUNCTION.  FOR  FORTRAN  LFN*S,  THIS  IS  ACCOMPLISHED 
BY  ANY  I/O  OPERATION  OR  CALL  CONNEC  OR  CALL  DISCON. 

THE  VALUE  RETURNED  MILL  BE  ONE  OFt 
♦1  - file  is  CONNECTED 

0 - file  is  not  connected 

-1  - ERROR  - FILE  NOT  FOUND 
-2  - ERPQP  -1=0 

SU9P0UTINF  and  function  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
SHIFT 
OTHERS 

MFETCH  - GET  SPECIFIED  WORD  IN  USER'S  FIELD  LENGTH 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE*  fortran  IV 
METHOD 

BIT  44  OF  WORD  10  (IITH  WORD)  OF  FIT  IS  EXTRACTED. 

CM  REQUIREOI  54B 
AUTHOR 

DAVID  V SOMMER  - NSROC  CODE  1392.2 

DATE  WRITTEN*  05/02/76 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY*  NSRCCPL , IO=CS YS 
OBJECT 

EDITLI3  USER  LIBRARY*  NSRDC 


OB/22/77 


2-74 


ISITCNF 


1 OF  1 


FUNCTION 


•ISTflPE 


PURPOSE 

GENERATE  TAPE  NAME  'TAPENN* 

FUNCTIONAL  CATEGORYI  M4 
USAGE 

NAME  = ISTAPE  ( NN» 

O^SCRIPTION  OF  PARAMETERS 

NAME  - resultant  DISPLAY  CODE  NAME  'TAPENN' 
(LEFT-JUSTIFIED,  ZERO-FILLED) 
(5LTAPEN  OR  6LTAPENN) 

NN  - fortran  LOGICAL  UNIT  NUMBER 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
NONE 
OTHERS 
NONE 

LANGUAGE!  CDS  GOOO  CP  COMPASS 

CM  REQUIRED!  23B 

AUTHOR 

NWL 

DATE  WRITTEN!  ? 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSROCPL  ,I 0 = CSYS 
OBJECT 

EDITLI9  USER  LIBPARY!  NSRDC 


06/10/76 


2-76 


ISTAPE 


kO-A045  835 


UNCLASSIFIED 


DAVID  M TAYLOR  NAVAL  SHIP  RESEARCH  AND  DEVELOPMENT  CE— ETC  F/6  9/2 
COMPUTER  center  LIBRARIES/NSRDC  (SUBPROGRAMS) > (U) 

SEP  77  D V SOMMER 

CMLD-77-15  NL 


‘"UNCTION 


•ISUMIT* 


PU'^POSE 

SUM  ELEMENTS  OF  INTEGER  ARRAY 

functional  CATEGORYI  A1 

LANGUAGEI  FORTRAN  IV 

REMARKS 

NONE 

USAGE 

ITOTAL  = ISUMIT  (lARRAY,  N) 

DESCRIPTION  OF  PARAMETERS 

ISUMIT  - MILL  CONTAIN  I A RRA  Y ( 1 ) f I A RR  A Y ( 2 ) ♦ . . . ♦■  I ARRA  Y ( N) 
lARPAY  - ARRAY  TO  0E  SUMMED 

N - NUMBER  OF  ELEMENTS  OF  lARRAY  TO  BE  SUMMED 

CM  REOUIREOI  16B 

SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
PAPT  OF  LANGUAGE 
NONE 
OTHERS 
NONE 

AUTHOR 

□AVID  V SOMMER  - DTNSROC  CODE  1302.2 

DATE  MRITTENI  11/23/76 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIPRARYJ  NSROCPL , I 0=CSYS 
OBJECT 

EOITLIB  USEP  LIBRARYI  NSROC 


08/22/77 


2-76 


ISUMIT 


1 0 


I 

I 


SUO^OUTINE  'JGDflTE* 

PURPOSE 

CONVERT  ANY  GREGORIAN  OATE  TO  A JULIAN  DATE  AND  VICE  VERSA 
(NULTI-YEARI 

EUNCTIONAL  CATEGORri  N2 
USAGE 

CALL  JGOATE  (JG,  JD,  IGY,  IGM,  IGD) 


DESCRIPTION  OE  PARANETERS 


JG  - 

DIRECTION  OF  CONVERSION 

1 - GREGORIAN  TO  JULIAN 

2 - JULIAN  TO  GREGORIAN 

JO  - 

JULIAN  DATE 

(OUT 

IF 

JG=1, 

IN 

IF 

JG=2) 

IGY  - 

GREGORIAN  YEAR  (EG,  1975) 

(IN 

IF 

JG=1, 

OUT 

IF 

JG=2) 

IGM  - 

GREGORIAN  MONTH  (1-12) 

(IN 

IF 

JG=1, 

OUT 

IF 

JG=2) 

IGD  - 

GREGORIAN  DAY  (1-31) 

(IN 

IF 

JG  = 1, 

OUT 

IF 

JG  = 2) 

REMARKS 

JG=l  IS  VALID  FOR  ANY  GREGORIAN  DATE  PRODUCING  A JULIAN 
DATE  GREATER  THAN  ZERO. 

THIS  SUBROUTINE  IS  USEFUL  IN  DETERMINING  THE  ELAPSED  NUMBER 
OF  DAYS  BETWEEN  ANY  TWO  CALENDAR  OATES.  IT  CAN  ALSO  3E  USED 
TO  FIND  the  calendar  OATE  SO  MANY  DAYS  FROM  ANY  GIVEN  OATE. 

SUBROUTINE  AMO  FJNCTIOM  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 

others 

NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE!  FORTRAN  IV 
METHOD 

SEE  CDMM.  OF  THE  ACM,  VOL.  11,  NO.  10,  OCT  1968,  PAGE  657. 

CM  REQUIREOI  71B 

AUTHOR 

? 

OATE  WRITTENI  ? 

DATE(S)  REVISED 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  LI3RARYI  NSRDCPL,ID=CSYS 
OBJECT 

EDITLIB  USER  LIBRARY!  NSRDC 


08/22/77 


2-77 


JGDATE 


1 OF  1 


SUO'^OUTINE  ‘JOBNAME' 

FUNCTION  ‘JOBNAME* 

PURPOSE 

GET  SCOPE  JOB  NAME  FOR  THIS  JOB 
FUNCTIONAL  CATEGORy*  QO 
USAGE 

CALL  JOBNAME  (I) 

VARIABLE  = JOBNAME  (I) 


OESCRIPTION  OF  PARAMETERS 
JOBNAME  - WILL  CONTAIN 
ZERO-FILLEO 

I - WILL  CONTAIN 

ZERO-FILLED 

REMARKS 

NONE 


JOB  NAME,  LEFT-JUSriFIEO, 
(WHEN  USED  AS  FUNCTION) 
JOB  NAME,  LEFT-JUSTIFIEO, 


SUBROUTINE 
PART  OF 


ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
LANGUAGE 


NONE 

OTHERS 

RCRA  - READ  CONTROL  POINT  AREA 


ARITHMETIC  STATFMENT  FUNCTIONS 
NONE 


LANGUAGE)  FORTRAN  IV 


METHOD 

THE  JOB  NAME  IS  TAKEN  FROM  THE  FIRST  7 CHARACTERS  OF 
CONTROL  POINT  AREA  ♦ 253 

CM  REQUIREOI  258 


AUTHO® 

OAVID  V SOMMER  - OTNSRDC  CODE  1892. 2 


DATE  WRITTEN!  12/04/75 

DATEIS)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSROCPL , IO=CSyS 

OBJECT 

EOITLIB  USER  LIBRARY!  NSROC 


08/22/77 
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J 


FiJNCTIO.V  'J080RG* 

SU8ROUTIME  'JOBORG* 

PURPOSE 

OETER1INE  JOB  ORIGIN 

FUNCTIONAL  CATEGORYI  QO 

LANGUAGEI  FORTRAN  IW  EXTENDED 

REMARKS 

NONE 

USAGE 

IWAR  = J080RG  (I,  lA) 

IVAR  = J090RG  (I) 

CALL  J090RG  (I,  lA) 

CALL  JOBORG  (I> 

DESCRIPTION  OF  PARAMETERS 

I  - WILL  CONTAIN  ONE  OF  THE  FOLLOWING! 

1 - IF  CALLING  J08  IS  A BATCH  JOB 

2 - FOR  REAL  TIME  JOB 

3 - FOR  GRAPHICS  JOB 

4 - FOR  MULTI-USER  JOB 

5 - FOR  INTERCOM 

lA  - IF  SPECIFIED,  WILL  CONTAIN!  'aATCH*,  'REAL  TIME*, 
•graphics*,  'MULTI-USER*,  OR  'INTERCOM*,  ACCORDING 
TO  THE  VALUE  OF  *1*. 

IF  USED  AS  A FUNCTION,  'JOBORG*  WILL  RETURN  THE  SAME  VALUE 

AS  *1*. 

CM  REQUIRED!  35B 
METHOD 

THE  INFORMATION  IS  TAKEN  FROM  THE  CONTROL  POINT  AREA. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
AND 
OTHERS 

RCPA  - READ  CONTROL  POINT  AREA 

AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1892.2 

DATE  WRITTEN!  03/07/E7 

OATE<S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , IO=CSy S 

OBJECT 

EOITLIB  USER  LIBRARY!  NSROC 


08/22/77 


2-79 


JOBORG 


I OF 


SUBROUTI^IE  'JULIftN* 


PURPOSE 

CONVERT  any  GREGORIAN  OATE  TO  A JULIAN  OATE  AN3  VICE  VERSA 
(SINGLE  YEAR) 

functional  CATEGORVI  M2 
USAGE 

CALL  JULIAN  (JGf  JO,  IGY,  IGM,  ICO) 

DESCRIPTION  OF  PARAMETERS 

JG  - DIRECTION  OF  CONVERSION 

1 - GREGORIAN  TO  JULIAN 

2 - JULIAN  TO  GREGORIAN 

JO  - JULIAN  OAY-OF-YEAR  (1-366) 

IGY  - GREGORIAN  YEAR  (EG,  1968) 

IGM  - GREGORIAN  MONTH  (1-12) 

IGO  - GREGORIAN  DAY  (1-31) 

REMARKS 

THE  PARAMETER  'IGY'  IS  ALWAYS  INPUT. 

IF  JG=1  AND  (SM<1  OR  GM>12  OR  G0<1  OR  GO>31) , 

THEN  JO  IS  SET  TO  ZERO  (0). 

IF  JG=2  and  (J0<1  OR  JD>366> , THEN  GM  IS  SET  TO  ZERO  (0). 
IF  JG  IS  NOT  1 OR  2,  THEN  JO  AND  GM  ARE  SET  TO  ZERO  (0). 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
MOO 
OTHERS 
NONE 

arithmetic  statement  FUNCTIONS 
^I0NE 

LANGUAGE!  FORTRAN  IV 
CM  REOUlREOt  163B 
AUTHOR 

OAVIO  V SOMMER  - NSROC  CODE  1992.2 
OATE  WRITTEN!  1968 
OATE(S)  REVISED 

04/26/73  - REWRITTEN  IN  FORTRAN  FOR  COC  6000 
06/21/76 

LOCATION  OF  DECKS 
SOURCE 

UPOATF  LIBRARY!  NSROCPL, IO=CSYS 
OBJECT 

FOITLIB  USER  LIPRARY!  NSROC 


- OVS 


06/22/76 


2-9  0 


JULIAN 


1 OF 


r 


/ 

SURROUTT'^F  'KUTMER* 

PUPOQSF 

integrate  a SrSTEM  OF  FIRST-ORDER  OROINART  OIFFERENTIAL 
EQUATIONS  USING  THF  KUTTA-MERSON  FOJRH-ORDER,  SINGLE-STEP 
METHOD 

FUNCTIONAL  CATEGORYI  02 
USAGE 

CALL  KUTMER  (N,  T,  Y,  EPS,  H,  FIRST,  MCK,  A) 

DESCRIPTION  OF  PARAMETERS 

N - NUMBER  OF  EQUATIONS  (I.E.,  THE  NUM3ER  OF  COMPONENTS 

IN  Y-BAR 

T - THE  INDEPENDENT  VARIABLE,  T 

Y - THE  ARRAY  OF  DEPENDENT  VARIABLES,  Y-BAR 

EPS  - THE  RELATIVE  ERROR  CRITERION  FOR  EACH  STEP,  TO  BE 

USED  FOR  THOSE  COMPONENTS  OF  Y-BAR  WHICH  ARE  GREATER 
than  a in  ABSOLUTE  VALUE 
H - THE  INTEGRATION  INTERVAL,  H 

FIRST  - WILL  HAVE  ONE  Of  THE  FOLLOWING  SETTINGSI 

0 - WHEN  KUTMEP.  IS  ENTERED  FO?  THE  FIRST  TIME,  OR  IS 

RE-ENTEREO  WITH  A CHANGED  INTERVAL  <H>.  WHEN 
KJTMER  IS  SO  entered,  <FIRST>  IS  RESET  BY  KUTMER 
TO  1. 

1 - WHEN  <UTMER  IS  RE-ENTEREO  WITH  THE  SAME  INTERVAL 

<H>,  TO  CONTINUE  AN  INTEGRATION  SEQUENCE.  UNDER 
THESE  circumstances,  KUTMER  WILL  NOT  RESET 
<FIRST>. 

2 - WHEN  KUTMER  CANNOT  MEET  THE  SPECIFIED  ERROR 

CRITERIA  EVEN  WHEN  THE  INTEGRATION  STEP  HAS  BEEN 
REOUCEO  TO  H/128.  KUTMEP  WILL  RESET  <FIR3T>  TO 
2 AND  PRINT  A STATEMENT  INDICATING  THAT  THE 
ERROP  CRITERION  COULD  NOT  BE  MET.  THEN  KUTMER 
WILL  RETURN  CONTROL  TO  THE  CALLING  PROGRAM. 

HCK  - IS  SET  UP  BY  KUTMER  BEFORE  EACH  RETURN  TO  THE 

CALLING  PROGRAM.  THIS  WILL  CONTAIN  THE  MIMINJM 
STEP  SIZE  USED  DURING  THE  INTEGRATION  OVER  THE 
INTERVAL  <H>. 

A - AN  ABSOLUTE  ERROR  CRITERION  TO  BE  USED  FOR  ANY 

COMPOMENT  OF  Y-BAR  WHENEVER  IS  BECOMES  SMALLER  IN 
ABSOLUTE  VALUE  THAN  <A>. 

ON  ENTRY,  <T>  AND  THF  ARRAY  <Y>  CONTAIN  VALUES  OF  THE 
INDEPENDENT  AND  THE  PEPENOENT  VARIABLES,  RESPECTIVELY, 

AT  THE  BEGINNING  OF  THE  INTERVAL  OF  INTEGRATION.  ON 
RETURN,  PROVIDED  THE  ERROR  CRITERION  HAS  BEEN  MET, 

I.E.,  <FIRST>  HAS  MOT  BEEN  RESET  TO  2,  <T>  AND  <Y>  CONTAIN 
VALUES  0*^  T AND  Y-BAR  AT  THE  END  VALUES  OF  THE  INTEGRATION 
INTERVAL  OF  <H>. 

A SUBROUTINE  FOR  EVALUATING  F- BA R( I , Y- B A R»  WITH  A CALL  OF 
THE  FORM 

CALL  OAUX  (T,  Y,  F) 

MUST  BE  SUPPLIED.  HERE  <T»  AND  THE  ARRAY  <Y>  REFER  TO  T AND 
Y-BAR,  RESPECTIVELY,  AND  THE  ARRAY  <F>  SHOULD  CONTAIN,  ON 
RETURN  FROM  THIS  SUBROUTINE,  THE  VECTOR  --BAR  (T,  Y-BAR). 
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^FMftRKS 

THIS  ROUTINE  KILL  INTEGRATE  A SYSTEM  OF  FIRST-OROER  '| 

oiffprential  equations  of  the  form  i 

1 

^ I 

— = F(T,Y) 

OT 

GIVEN  A SET  OF  INITIAL  CONDITIONS  T , Y(T  ), 

0 0 

AN  interval  H ANO  a SUBROUTINE  ^OR  EVALUATING  F-8 ARC T , Y -BAR) 

FOR  SPECIFIED  VALUES  OF  T ANO  Y-3AR. 

THE  DIMENSIONS  OF  THE  ARRAYS  FOR  STORING  INTERMEDIATE  VALUES  I 

OF  THE  VECTORS  F-BAR  AND  Y-BAR  ARE  PRESENTLY  SET  TO  10.  S 

THIS  CAN  BE  READILY  CHANGED  BY  CHANGING  THE  DIMENSION  '] 

STATEMENT  AT  THE  BFGINNING  OF  THE  SUBROUTINE. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PAPT  OF  LANGUAGE 
A3S 
OTHERS 

OAJX  - USER-SUPPLIEO  SUBROUTINE  TO  EVALUATE  F-BAR 
LANGUAGE!  FORTRAN  IV 
METHOD 

THE  <UTTA-MERS0N  METHOD  OF  INTEGRATING  A SYSTEM  OF  FIRST- 
OROER  ORDINARY  DIFFERENTIAL  EQUATIONS  IS  USED.  THIS  IS  A 
FOURTH-0'’OER,  SINGLE-STEP  METHOD  WHICH  PROVIDES  A 
convenient  TECHNIQUE  FOR  AUTOMATIC  INTERVAL  ADJUSTMENT 
(C.F.,  F.  FOX,  "NUMEPICAL  SOLUTION  OF  ORDINARY  ANO  PARTIAL 
differential  EQUATIONS",  A0DI30N-HESLEY,  READING,  MASS., 

196?,  P.  ?4).  THE  ROUTINE  IS  BASICALLY  A TRANSLATION  INTO 
FORTRAN  OF  ALGOL  ALGORITHM  213  PUBLISHED  IN  "COMMUNICATIONS 
OF  THE  ACM",  DEC.  1963. 

OUTPUT  UNITS 

UWII— f —LEM USE 

OUTPUT  ERROR  MESSAGE 

CM  PEOUIRFOt  3353 

AUTHOR 

E.  CUTHILL  - OTNSRDC  CODE  1805 
DATE  WRITTEN!  10/29/64  (FORTRAN  VERSION) 

OATE(S)  REVISED  | 

LOCATION  OF  DECKS  i 

SOURCE 

TAPE  LABELLED!  CLI BR A RY UPO 3 , 0= HY 

OBJECT  ' 

EOITLIB  USER  LIBRARY!  NSRDC  ! 


FUNCTION  »LftSTC' 


PURPOSE 

DETERNINE  NUHBER  OF  CHARACTERS  THRU  LAST  NON-BLANK 
(NON-ZERO  (OOB)) 

functional  CATEGORYI  N5 

LANGUAGEI  FORTRAN  IV  EXTENOEO 

REHARKS 

THE  WORD  IN  'A*  WHICH  CONTAINS  THE  LAST  NON-BLANK  (NON- 
ZERO) CHARACTER  IS  ( L AST C ( A , N) *9) ZIO 

USAGE 

LASTC  (A) 

LASTC  (A,  N) 

OESCRIPTION  OF  PARAMETERS 

A - ARRAY  TO  BE  SCANNED 

N - NUMBER  OF  WORDS  IN  ‘A*  TO  BE  PROCESSED 

LASTC  - WILL  CONTAIN  THE  NUMBER  OF  CHARACTERS  IN  »A* 
EXCLUDING  TRAILING  BLANKS  (ZEROS) 

CM  REOUlREOt  64B 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
LOCF  SHIFT 

OTHERS 
NONE 

AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1892.2 
DATE  WRITTENI  01/06/Z6 
OATE(S)  REVISED 

07/25/77  - MAKE  PARAMETER  'N*  OPTIONAL 

LOCATION  OF  decks 
SOURCE 

UPDATE  LIBRARYI  NSROCPL, IO=CSYS 
OBJECT 

EOITLIB  USER  LIBRARYI  NSROC 


07/25/77 


2-8? 


LASTC 


1 


=^UNCTION 


•LftSTWRO  • 


PURPOSE 

OETERIINE  SUBSCRIPT  OF  LAST  WORD  OF  ARRAf  WHICH 
CONTAINS  A N0M-8LAN< 


FUNCTIONAL  CATEGORY! 


HS 


usage 

LASTWRO  (A,  N) 

description  of  PARAMETEPS 

LASTWRO  - WILL  CONTAIN  SUBSCRIPT  OF  LAST  WORD  OF  ARRAY  WHICH 
contains  a NON-0LAN<  (ANO  NON-OOB) 

A - ARRAY  TO  OF  SCANNED 

N - number  or  WORDS  IN  'A*  TO  BE  PROCESSED 

REHARKS 

NONE 

S'JPPOUTINE  and  FUNCTION  SUBPROGRAMS  REQUIRED 
• RT  OF  language 
NONE 
-•ERS 

LASTC  - FIND  LAST  NON- BL A N< /NON-0 0 B CHARACTER  IN  ARRAY 

arithmetic  statement  functions 

NONF 


LANGUAGE!  FORTRAN  IV 
CM  REQUIRED!  223 


AUTHOR 

OAVIO  V SOMMER  - OTNSROC  CODE  13R2.2 

DATA  WRITTEN!  03/15/^6 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , I 0=CSY S 
OBJECT 

EDITLI3  USER  LIBRARY!  NSROC 


QH/22/77 


2-81* 


LASTWRO 


1 OF 


1 


"UNCTION 


•LOTT* 


PURPOSE 

EXTRACT  VARIABLE  LENGTH  BYTE 


P'JNCTIONAL  CATEGORY!  M4 


USAGE 

VAPIA3LE  = L3YT  (N,  LENGTH,  FRONl 


DESCRIPTION 

VARIABLE 

N 


LENGTH 

FROM 


OF  PARAMETERS 

- LOCATION  INTO  WHICH  THE  EXTRACTED  BY 
STORED  PIGHT-JUSTIFIEO 

- STARTING  BIT  POSITION  OF  THE  BYTE  TO 
EXTRACTEO.  BITS  ARE  NUMBERED  1-60  F 
TO  LEFT. 

- LENGTH  OF  THE  BYTE  (NUMBER  OF  BITS) 

- WORD  FROM  WHICH  THE  BYTE  IS  TO  BE  EX 


TE  IS 
BE 

ROM  RIGHT 


TRACTED 


REMARKS 

EXTRACTS  A BYTE  OF  ANY  .ENGTH  (1-60  BITS)  FROM  A 6O-0IT 
WORD.  THE  EXTRACTEO  BYTE  IS  THEN  STORED  R I GH T- JUS TI F I ED 
INTO  ANOTHER  60-BIT  WORD. 


SUBROUTINE  AND 
NONE 


function  SUBPROGRAMS  REQUIRED 


EXAMPLE 

STARTING  AT  THE  TWELFTH  BIT  FROM  THE  RIGHT  OF  A WORD,  A 
FOUR-BIT  BYTE  WILL  BE  EXTRACTEO  ^ROM  THE  VARIABLE  <TA<E>  AND 
STORED  IN  VARIABLE  <ISTORE>  IN  BIT  PLACES  1-4. 

TAKE  = 1111  2222  3333  4476  5555B 
ISTORE  = L3YT  (12,  4,  TAKE) 

RESULTS  IN 

I5TORF  = 0000  0000  0000  0000  00163 
NOTEt  BIT  POSITIONS  12-15  OF  <TA<E>  ARE  111  0. 


LANGUAGE!  COC  6000  COMPASS 
CM  REQUIRED!  169 


AUTHOR 

FROM  COC  KPONOS  SYSTEM 


DATE  WRITTEN! 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
ROURCE 

UPDATF  LIBRARY!  NSROCPL , IO=CSYS 

OBJECT 

EOITLIB  USER  LIBRARY!  NSROC 


06  /22/77 
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L8YT 
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1 


SUBROUTINE  'LEFTADJ* 


PURPOSE  1 

SQUEEZE  LEFT  ftNO  REMOVE  BUNKS  ftNO  003  (USER  MAV  SJPP.r  ] 

TRAILING  fill  CHARACTER)  j 

FUNCTIONAL  CATEGORYI  M<+  i 

LANGUAGE!  FORTRAN  IV  EXTENQEO 

REMARKS 

THE  LAST  NON-BLANK  CHARACTER  POSITION  AND  WORD  ARE  RETURNED.  ; 

USAGE 

CALL  LEFTADJ  (A,  NA,  LASTC,  NW,  FILL) 

CALL  LFFTAOJ  (A,  NA,  LASTC,  NW) 

DESCRIPTION  OF  PARAMETERS 

A - ARRAY  TO  BE  LEFT  JUSTIFIED 

NA  - NUMBER  OF  WORDS  IN  'A*  TO  BE  PROCESSED 

LASTC  - WILL  RETURN  THE  LAST  CHARACTER  POSITION 

WHICH  IS  NON-BLANK/NON-OQB  (LEFT-MOST  CHARACTER 
POSITION  IS  1) 

(IF  ARRAY  CONTAINS  ON^Y  BLANKS  AND/OR  OOB,  lASTC  IS 
SET  TO  0) 

NW  - WILL  RETURN  SUBSCRIPT  OF  WORD  CONTAINING  LAST  i 

NON-8LANK/NON-OOB  CHARACTER 
(IF  LASTC=0,  then  NW  IS  SET  TO  0) 

FILL  - optional  FILL  CHARACTER  FOR  EACH  CHARACTER 
POSITION  AFTER  LASTC  (USE  IR  OR  IH  FORMAT) 

(IF  OMITTEO,  fill  character  IS  003) 

CM  REQUIREOl  1173  j 

example 

DIMENSION  A(4) 

CONTENTS  OF  At  12345  67890  ABCDEFGHIJ 

CALL  LEFTADJ  (A,  4,  LASTC,  NW) 

CONTENTS  OF  A!  1234567090 ABCDEFGHIJ 

LASTC  IS  20;  NW  = 2 

CALL  LEFTADJ  (A,  4,  LASTC,  NW,  IR/) 

CONTENTS  OF  At  1 23456709OA3COEFGHI J//////////////////// 

LASTC  ANC  NW  ARE  THE  SAME 
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SUTPO'JTINF  fiNO  FUNCTION  SU3PROGR415  REQUIRF3 
PART  OF  language 
L0~F 

other=: 

GETCHA  - EXTRACT  ONE  CHARACTER  PRON  AS  ARRAY 
PUTCHA  - INSERT  ONE  CHARACTER  INTO  AN  ARRAY 


ARITHMETIC  STATEMENT  FUNCTIONS 

RllFMT  - FAST  R-FORMAT  DFCOOE  (RIGHT-ADJ,  ZERO-FILwEO) 

AUTHOR 

OAVIO  V SOMMER  - OTNSROC  CODE  1392. F 
DATE  WRITTENI  11/02/76 
OATE(S)  REVISED 


LOCATION  OF  OPCKS 
SOURCE 

UPOATE  LIPRARYI  N SROCPL , 1 0 = CS Y S 

09JECT 

F0ITLI3  USER  LIORARYt  NSRDC 


01/11/77 
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LEFTAOJ  - 2 OF  2 


W 


S'JBROUTI^^E  'LIMES* 


r 


PU9P0SE  ’ 

SET  P'<INT  FILE  TO  S LINES  PER  INCH 

FUNCTIONAL  CATEGORY:  J4 

USAGE 

CALL  LINES  (lO'JT) 

DESCRIPTION  OF  parameter 

lOUT  - OUTPUT  UNIT  NUM1ER  fl-99)  OR  NAME  (1-7  CHARACTERS, 

LEFT- JUSTIFIED,  7ER0-FILLED)  j 

REMARKS 

USER  SHOULD  PRINT  HIS  NEXT  LINE  AT  THE  TOP  OF  THE  NEXT  PAGE. 

SU3P0UTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 

OTHERS 

NONE 

arithmetic  STATEMENT  FUNCTIONS 
NONE 

language:  fortran  iy 

OUTPUT  UNIT 

UNIT  i LFN  use 


lour  listable  output  file 

CM  required:  20B 
AUTHOP 

OAVIO  V SOMMER  - OTNSROC  CODE  1892.3 

date  written:  06/11/7S 

DATE(S)  revised 

location  of  DECKS 
SOURCE 

UPDATE  library:  NSROCPL , I 0 = CS Y S 

object 

EOITLI8  USER  LIBRARY:  NSRDC 


i 

[ 

I 

i 


I 


0S/11/7S 


2-88 


LINES 


I OF  1 


SU3R0UTINE  'LINES' 

PURPOSE 

SET  PRINT  PILE  TO  S LINES  PER  TNCN 
FUNCTIONAL  CATEGORY!  J4 
JSAGE 

CALL  LINES  (lOUT) 

DESCRIPTION  OF  PARAMETER 

lOUT  - OUTPUT  UNIT  NUM3ER  (1-3R)  OR  NAME  (1-7  CHARACTERS, 
LEFT- JUSTIFIED,  lERO-FILLEO) 

REMARKS 

USER  SHOULD  PRINT  HIS  NEXT  LINE  AT  THE  TOP  OF  THE  NEXT  PAGE. 

subroutine  and  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
NONE 
OTHERS 
NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

.anguagei  fortran  IV 

OUTPUT  UNIT 

UNIT  # LFN  USE 


TOUT  LISTABLE  OUTPUT  FILE 

CM  REQUIRED!  20B 
AUTHOP 

DAVID  V SOMMER  - OTNSRDC  CODE  1892.2 

DATE  WRITTEN!  OE/11/76 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSROCPL , I D=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY!  NSROC 


- 1 OF  1 


0ft/ll/7E 


2-99 


LINES 


FUNCTION 


'NftSKlT • 


oysPO'^F. 

OrNAMIC  MASK  SENERATOR 
FUNCTIONAL  CATFGOPYt  N] 

USAGE 

NSK  = ^•ASK^T  (FLl,  3IT1,  FL2,  8IT2,  FLN,  3ITN) 

DESCRIPTION  OF  parameters 
FL  - NUMBER  OF  BITS 
BIT  - STARTING  BIT  AOORESS 

BIT  ADDRESSES  ARE  THE  RELEVANT  POWER  OF  2. 

I*E»9  SBfSSySTy***  •••fZylyO 

RE*«AR<S 

MASKIT  GENERATES  AS  ITS  FUNCTIONAL  VALUE  A WORD  WITH  'N* 
fields  of  BITS  SET,  EACH  FIELD  »FL»  BITS  LONG,  AND  STARTING 
AT  BIT  address  ‘BIT*. 

example*  to  generate  the  MASK 

lllODOlllllllllllOlllOOOOOOOOOlOOOlOOOOOOOllllllOOOOOOllllll 

70777673004200770077 

USF  THE  FOLLOWING! 

M3<  = MASKIT  <3,59,  11,53,  3,41,  1,29,  1,25,  6,17,  6,5» 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
NONE 
OTHERS 
NONE 

LANGUAGE!  COC  6000  COMPASS 

CM  REQUIRED!  16B 

AUTHOR 

C FLINK  - KPS  NWL 

□ATE  WRITTEN!  07/70 

DATECS)  REVISED 

LOCATION  OF  OECKS 
SOURCE 

UPDATE  LIBRARY!  NSROCPL , IO=CSYS 
OBJECT 

E0ITLI8  USER  LIBRARY!  NSRDC 


SURROUTI'JE  »MATINS* 


Q7/Zhf77 


PU;?POSE 

MATRIX  INVERSION  WITH  ACCOMPANYING  SOLUTION  OF  SIMULTANEOUS 
EQUATIONS  AND  DETERMINANT 

functional  CATEGORIES!  FL  FI  F3 

LANGUAGE!  FORTRAN  IV 

REMARKS 

TESTS  FOR  LOSS  OF  DIGITS  DUE  TO  SUBTRACTION. 


TO  SCALE  THE  OETFRMINANT,  ROUTINE  MUST  3E  RECOMPILED  TO  OMIT 
INTERNAL  'DETERM  = 1.'.  IN  THIS  CASE,  PARAMETER  'OETEKM*  IS 
the  INPUT  SCALING  FACTOR  AS  HELL  AS  THE  OUTPUT  DETERMINANT. 


USAGE 

CALL 


MATINS  (A,  NR,  Nl,  0,  NC,  Ml,  DETERM,  ID,  INDEX) 


DESCRIPTION 

A 


NC 


Ml 


OF  PARAMETERS 

input  matrix  <nr  X nR) 


(HILL 

BE 

REPL 

ACED  BY  INVERSE  OF  *A') 

NR 

- REFERS 

TO 

CAL 

LING  PROGRAM  DIMENSIONS! 

# ROWS 

IN 

'A* 

; # COLUMNS  IN  'A  * ; 

# ROWS 

IN 

; # ROWS  IN  'INDEX* 

Nl 

- ORDER 

OF 

'A* 

DETERM 

ID 


INDEX 


(ACTUAL  SIZE  OF  *A'  BEING  USED) 

COLUMN  VECTORS 

(WILL  3E  REPLACED  BY  CORRESPONDING  SOLUTION 
VECTORS) 

REFERS  TO  CALLING  PROGRAM  DIMENSIONS! 

• COLUMNS  IN  »3' 

NUMBER  OF  ACTUAL  COLUMN  VECTORS  IN  'B' 

(MAY  BE  0) 

OUTPUT  DETERMINANT 
OUTPUT  CODE 

1 - INVERSE  SUCCESSFUL 

2 - MATRIX  *A*  SINGULAR 

WORKING  STORAGE  ARRAY  OF  DIMENSION  (NR  X 3) 


NOTE!  Nl  <=  nr;  Ml  <=  NC 
CM  REQUIRED!  3568 


METHOD 

PIVOT  METHOD  - GAUSS-JORDAN 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
A3S 
OTHERS 
NONE 


2-91 


MATINS  - 1 OF  2 


AUTHOR 

ANF40?  FROM  SHAPE 

SHARON  F GOOn  - OTNSI^DG  CODE  18S2.1 
C R NEWMAN  - NOL 

OATF  WRITTFNI  11/71 

3ATE(S)  RF\/rSFO 

07/26/77  - AOO  CRN  CODING  (SEG) 

LOCATION  OF  DECKS 
SOURCE 

TA^F  LARELLEOt  CLl3RARyUPD3 
ORJECT 

EDITLT0  USER  LIRRARYI  NSROC 


07/2£/7/ 


2-92 


MATINS 


SUBROUTINE  ‘NfiXE* 

FUNCTION  'NAXE* 

PUNCTTON  'ANAXE* 

PURPOSE 

find  NAXIMUN  »/ALUE  of  an  ARffAT 
FUNCTIONAL  CATEGORYI  M5 
USAGE 

CALL  NAXF  (ARRAY,  ISIZE,  ANAX^) 

NAXV  = HAXE  (lARRAY,  ISIZE) 

AflAXV  = ANAXE  ( ARRAY,  ISIZE) 

description  of  parameters 

ARRAY  - REAL  ARRAY  TO  BE  PROCESSED 

lARRAY  - INTEGER  ARRAY  TO  BE  PROCESSED 

ISIZE  - length  of  array/iarray 

AMAXV  - REAL  MAXIMUM  RETURNED  IN  SUBROUTINE 

REMARKS 

FUNCTION  MAXE  HAS  INTESER  INPUT  ANO  OUTPUT, 
FUNCTION  AMAXE  HAS  REAL  INPUT  AND  OUTPUT. 

SUBROUTINE  8NO  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  I ANGUAGE 
NONE 
OTHERS 
NONE 

LANGUAGE!  COG  6000  COMPASS 

CM  REQUIRED!  148 

AUTHOR 

C PLINK  - KPS  NHL 

DATE  WRITTEN!  11/Z2/73 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , I 0 = CS YS 
OBJECT 

E0ITLT8  USER  LIBRARY!  NSRDC 


i 


] 

1 


^^/22/77 
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MAXE 


I OF  I 


FUNCTION 


•mfetch  • 


PURPOSE 

FETCH  A SINGLE  WO'^0  (9Y  ABSOLUTE  ADDRESS!  FROM  USER'S  FL 
FUNCTIONAL  CATEGORYI  <2 
USAGE 

HFETCH  (AOOR) 

DESCRIPTION  OF  PARAMETER 

AOOR  - ADDRESS  IN  USER'S  FL  TO  BE  FETCHED 

remarks 

•MFETCH*  IS  AN  ENTRY  POINT  IN  'CMDRCT*. 

NO  ERROR  CHECKING  IS  DONE, 

SU8R0UTINF  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 

language:  CDC  6000  COMPASS 

CM  PEQUIREDI  IIB  (INCLUDES  *MSET') 

AtJTHOP 

? - NHL 

DATE  WRITTEN! 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRQCPL , ID=CSYS 

OBJECT 

EOITLI3  USSER  LISRAPY!  NSRDC 


00/22/T7 


2-94 


MFETCH 


I OF  I 


SUBROUTINE  'MFX* 
FUNCTION  *MFX* 


PURPOSE 

OBTAIN  THE  MAINFRAME  THE  PROGRAM  IS  RUNNING  ON 


JSAGE 

CALL  MFX  (ICPU> 

VARIABLE  = MFX  (ICPU) 

OESCRIPTION  OF  PARAMETER 

ICPU  - WILL  RETURN  MACHINE  ON  WHICH  THE  PROGRAM  IS  RUNNING 
(LEFT-AOJ,  ZERO-FILLED) 

(HILL  RETURN  ONE  OF  4L6Z00,  4L6600,  4L6400) 

MF  - WILL  RETURN  MAINFRAME  ON  WHICH  MACHINE  IS  RUNNING 
(LEFT-AOJ,  ZERO-FILLED) 

(WILL  RETURN  ONE  OF  3LMFA,  3LMFB,  3LMFC) 

REMARKS 

NONE 


SUBROUTINE 
PART  OF 
AND 
OTHERS 
NONE 


AND  FUNCTION  SUBPROGRAMS  REQUIRED 
LANGUAGE 

MACHINE  OP  SHIFT 


A'^ITHMETIC  STATEMENT  FUNCTIONS 

L33FMT  - FAST  L-FORMAT  DECODE  (LEFT-AOJ, 


ZERO-FILLED) 


LANGUAGE!  FORTRAN  IV  EXTENDED 

CM  REQUIRED!  468 

AUTHOR 

DAVID  V SOMMER  - NSRDC  CODE  189Z.2 


DATE  WRITTEN!  04/18/75 
OATE(S)  REVISED 

03/22/76  - HAKE  FUNCTION  AS  HELL  AS  SUBROUTINE 
08/24/77  - CHANGE  NAME  FROM  CPU467  TO  MFX 

RETURN  MFA/MBA/MFC  AS  THE  FUNCTION  VALUE 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSROCPL , IO=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY!  NSRDC 


r 


SUSROUTINF  'ilNF* 

FUNCTION  'MINE* 

FUNCTION  'AMINE' 

PURPOSE 

find  MINIMUM  VALUE  OF  AN  ARRAT 


FUNCTIONAL  CATEGORY! 


M5 


USAGE 

CALL  1INF  (ARRAY,  ISIZE,  AMINV) 

MINV  = MINE  (lARRAY,  ISIZE) 

AMTNV  = AMTNE  ( ARRAY,  ISIZE) 

OESCRIPTION  OF  PARAMETERS 

ARRAY  - REAL  ARRAY  TO  BE  PROCESSED 

lARRAY  - INTEGER  ARRAY  TO  BE  PROCESSED 

ISIZE  - length  OF  APRAY/IARRAY 

AMINV  - REAL  MINIMUM  RETURNED  IN  SUBROUTINE 

'•EMARKS 

FUNCTION  MINE  HAS  INTEGER  INPUT  AND  OUTPUT. 
FUNCTION  AMINE  HAS  REAL  INPUT  AND  OUTPUT. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
NONE 
OTHERS 
NONE 

LANGUAGEJ  COC  6000  COMPASS 

CM  REQUIREOI  14B 

AUTHOR 

C FLINK  - KPS  NHL 
DATE  WRITTFNI  11/22/ZO 
DATE(S)  REVISED 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYI 
OBJECT 

EDITLI9  USER  LIBRARYI 


NSRDCPL,IO=CSYS 
NSROC 


08/22/7/ 


2-96 


MINE 


1 OF 


J 


5U0Rr)iJTlVF  'lONTH' 


P'JROOSE 

PROH  4 riaiE  (►I’^/nO/YY)  FIND  THE  MONTH  ftNO  RETJRN  FULL 
SPELLING  4NO  3-  OR  4-CH4PAGTER  aaOREVIATION 

FUNCTIONAL  CATE&ORVI  HZ 


USAGE 

CALL  MONTH  (DATE,  MONTH,  MM) 


DESCRIPTION 

OF  PARAMETERS 

DATE 

DATE  TO  BE  PROCESSED  (» 

mm/dd/yy 

»,  * MM/OO/YY 

OR  • HM/CD/YY*) 

imonth  - 

WILL  contain  the 

MONTH 

(COMPLETE 

SPELLING) 

MM 

WILL  contain  the 
ABBREVIATION) 

MONTH 

(3-  OR  4- 

CHARACTER 

REMARKS 

NONE 

SUBROUTINE 

ANO  FUNCTION  SUBPROGRAMS 

REQUIREO 

PART  OF  LANGUAGE 
SHIFT 


OTHERS 

NONF 

arithmetic  statement  FUNCTIONS 
I21FMT  - FAST  1-FORMAT  DECODE 

LllFMT  - fast  L-FORMAT  DECODE  (LEFT-AOJ,  ZERO-FILLED) 
LANGUAGE)  fortran  IY 
CM  REQUIRED!  63B 
AUTHOR 

DAVID  V SMOMMER  - OTNSROC  CODE  1892.2 

DATE  WRITTEN)  OZ/21/76 

OATE(S)  REVISED 

LOCATION  OF  0ECK5 
SOURCE 

UPOATE  LIBRARY)  NSROCPL , ID=CSYS 
OBJECT 

EDITLI8  USER  LIBRARY)  NSROC 


07/21/76 


2-97 


MONTH 


1 OF 


1 


1 


SU0ROUTI^^E  'MOVSTR* 


PURPOSE 

MOVE  A STRING  OF  CHARftnTERS  FROM  ONE  ARRAT  TO  ANOTHER 
FUNCTIONAL  CATE&ORYI  M4 
LANGUAGEI  FORTRAN  IV  EXTENOEO 


REMARKS 

NONE 

USAGE 


CALL 

MOVSTR 

(FROM, 

IFROM,  TO, 

ITO, 

len. 

GALL 

MOVSTR 

(FROM, 

IFROM,  TO, 

ITO, 

LEN) 

DESCRIPTION  OF 

PAPAMETEPS 

FROM 

- ARRAY  FROM 

WHICH  STRING  IS 

TO  BE 

IRC) 


IFROM  - starting  POSITION  OF  STRING  TO  BE  EXTRACTEO 

(POSITION  1 IS  LEFT-MOST  CHARACTER  OF  FROM(l)» 
TO  - ARRAY  TO  RECEIVE  THE  STRING 

ITO  - STARTING  POSITION  TO  INSERT  THE  STRING 

(POSITION  1 IS  LEFT-MOST  CHARACTER  ON  TO(l)» 
LEN  - NUMBER  OF  CHARACTERS  IN  STRING  TO  BE  MOVED 
IRC  - OPTIONAL  ERROR  RETURN  CODE 

0 - NO  ERROR,  STRING  MOVED 

1 - IFROM  LE  0 

2 - ITO  LE  0 

3 - LEN  LE  0 

CM  REQUIREOt  7in 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

AND  LOCF  MOO  OR 

OTHERS 
NONE 


SHIFT 


EXAMPLE 

FROM!  ABCDEFGHIJKLMNOPQRSTUVHXYZ  TOI  *************** 
AFTER  CALL  MOVSTR  (FROM,  5,  TO,  12,  4,  IRC) 

FROM!  ABCDEFGHIJKLMNOPQRSTUVHXYZ  TOI  •efgH 

IRC  I 0 


AUTHOR 

DAVID  V SOMMER  - OTNSROC  CODE  1392.2 


DATE  WRITTEN!  10/04/76 

OATE(S)  REVISED 

04/04/77  - MAKE  IRC  OPTIONAL 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYI  NSRDCPL ,ID=CSYS 
OBJECT 

EOITLIB  USER  LIBRARYI  NSRDC 


04/04/77 


2-93 


MOVSTR 


I OF 


SUBROUTINE  'NSET* 


PURPOSE 

SET  A SINGLE  NORC  (8V  A3SOLUTE  ADDRESS)  IN  USER'S  FL 
functional  CATEGORYI  <2 
USAGE 

CALL  NSET  (AOOR,  NEW) 

DESCRIPTION  OF  PARAMETERS 

ADOR  - ADDSESS  IN  USER'S  FL  TO  3E  SET 
NEW  - WORD  TO  BE  PUT  INTO  'ADOR' 

REMARKS 

'MSET'  IS  AN  ENTRY  POINT  IN  'CMORCT'. 

NO  ERROR  CHECKING  IS  DONE. 

SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 

LANGUAGE!  COG  6000  COMPASS 

CM  PEQUIREDI  IIB  (INCLUDES  'MFETCh') 

AUTHOR 

? - NWLI 

DATE  WRITTEN! 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , I J=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY!  NSROC 


OS  mm 


2-9B 


MSET 


I OF  I 


SUBROUTINE  'NFWOaT* 


PU'^POSE 

anO/SJ3TRftCT  SPECIFIEO  NUMBER  OF  OftTS  TO/FROM  A GIVEN  DATE 

functional  CATEOORYI  M? 
usage 

call  NEwnAT  {FNT,  OLD,  NEW,  OCENT,  NCENT,  AOD) 

OFSCRIPTION  OF  PARAMETERS 

PMT  - FORMAT  OF  DATE  (INTEGER) 

1 - 'MH/OO/YY  • 

? - • mm/od/yy  • 

OLD  - OLD  DATE  (MM/DD/YY) 

NEW  - NEW  DATE 

OCENT  - OLD  CENTURY  (E.G.,  INTEGER  1900) 

NCENT  - NEW  CENTURY  (E.G.,  INTEGER  1900) 

ADD  - NUMBER  OF  DAYS  TO  ADO 
(NEGATIVE  TO  SUBTRACT) 

remarks 

NONE 

SUBROUTINE  and  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
NONE 

others 

JGOAT>^  - JJL  IAN/GFEGORIAN  DATE  CONVERTER  ( MUL  TI -YEAR) 

arithmetic  STATEMENT  FUNCTIONS 
NONE 


.ANGUAGEI  FORTRAN  IV 
CM  RFQUIREDI  15FB 
AUTHOR 

DAVID  V SOMMER  - DTNSRJC  CODE  1992. ^ 

DATE  WRITTENI  1963 

DATE(S)  REVISED 

02/73  - CONVERT  TO  SCOPE  3.3 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LI3RAPYI  N SRDCPL , I D=C S YS 

OBJFCT 

E0ITLI3  USER  LIBRARYt  NSROC 


06/19/76 


2-100 


NEWDAT 


1 OF  1 


SU'IROUTI'JE  'NFILL 


PUR'^nSF 

FILL  elements  1 THPU  N OF  AN  ARRAY  WITH  THE  VALUES  1 THRU  N, 
RESPECTIVELY 

FUNCTIONAL  CATEGORYI  A1 
USAGE 

call  NFILL  (A,  N) 

DESCRIPTION  OF  PARAMETERS 
A - ARRAY  TO  FILLED 
N - NUMBER  OF  ELEMENTS  TO  BE  FILLED 

REMARKS 

NONE 

subroutine  and  function  subprograms  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 
NONE 

.ANGUAGEI  COC  6000  CP  COMPASS 
CM  REOUIREOt  6B 

author 

DAVID  V SOMMER  - OTNSRJC  CODE  1992.2 
DATE  HPITTENI  09/09/76 

oate(‘^)  revised 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIRRARYI  NSRDCPL , IO=CSYS 
OBJECT 

EDITLI3  USER  LIBRARYl  NSRDC 


08/22/77 


2-101 


NFILL 


1 OF  1 


FiJNCTION  'NFILLT* 
S'JRROUTIME  'NFILLT* 


PURPOSE 

TESr  AN  ARRAY  FOR  THF  PRESENCE  OF  THE  INTEGERS  1 THRU  N 
IN  ELEMENTS  1 THRU  N,  RESPECT I EL T 

FUNCTIONAL  CATEGORVI  M5 

USASE 

ISU0  = NFILLT  (A,  N,  I) 

CALL  NFILLT  (A,  N,  I) 

IFSCRIPTION  of  PARAMETERS 

A - ARRAY  TO  RE  SCANNED 

N - NUMBER  CF  ELEMENTS  TO  TEST 

I - =0  - A(l)  THRU  A(N)  CONTAIN  1 THRU  N 

>0  - A(I)  IS  FIRST  ELEMENT  TO  FAIL  TEST 
NFILLT  - IF  USED  AS  A FUNCTION,  WILL  RETURN  THE  SAME  \/ALUE 
AS  'I* 

REMARKS 

A SUGGESTED  USE  OF  THIS  ROUTINE  IS  IN  CONJUNCTION  WITH  ONE 
OF  THE  SORTING  ROUTINES  TO  DETERMINE  IF  THE  ARRAY  BEING 
SOR.TEO  WAS  ALREADY  IN  ORDER. 

SUBROUTINE  and  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 
NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

language:  fortran  IV  EXTENDED 

CM  PEOUIREOt  40B 

AUTHOR 

OAI/IO  V SOMMFR  - OTNSROC  CODE  1392.2 

DATE  written:  08/19/76 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , I 0=CSYS 
OBJECT 

EOITLIB  user  library:  NSRDD 


09/19/77 


2-102 


NFILLT 


1 OF  1 


i 

' SUBROUTINE  •NUHEXFC ' 

I 

I PURPOSE 

j GET  NUMBEi?  OF  EXECUTE  CURD  PftRAiETEHS  WERE  USED  IN 

I THIS  execution  of  THE  PROGRAM 

; FUNCTIONAL  CATEGOPYI  QO 

i 

: USAGE 

CALL  NUMEXEC  (NEXEC) 

OESCRIPTION  OF  PARAMETER 

NEXEC  - WILL  RETURN  THE  NUMBER  OF  EXECUTE  CARD  PARAMETERS 

; REMARKS 

! NONE 

I 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 

MFETCH  - GET  specified  WORD  OF  USER'S  Ft 

ARITHMETIC  STATEMENT  FUNCTIONS 

R38FMT  - FAST  R-FOPMAT  DECODE  (RIGHT-ADJ,  ZERO-FILLED) 

.ANGUAGEI  fortran  IV 

METHOD 

THE  NUMBER  OF  PARAMETERS  IS  IN  THE  RIGHTMOST  18  BITS  OF 
WORD  RA*52  (6i»B)  IN  THE  USER'S  FL. 

CM  OEQUIREDI  16B 

AUTHOR 

DAVID  V SOMMER  - NSROC  CODE  1892.2 

DATE  WRITTEN!  04/15/75 

3ATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

TAPE  LABELLED  CSYSNSROCPl;  P.F.  NSROC PL , I 0=C SY S 
OBJECT 

EDITLIB  USER  LIBRARY!  NSRDC 


08/22/77 
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NUMEXEC 


1 OF  1 


PUNCTION 


'□FHT3E • 


I 


P'JRPOSE 

FAST  O-FORMAT  DECODE 

functional  category:  12 

USAGE 

YARIA3LE  = OFNTOE  (IWORDi  ISTART,  NCHAR) 

DESCRIPTION  OF  PARAUFTERS 

\/APIA3LE  - WILL  CONTAIN  THE  RESULT  RIGHT -JUST  IF  lEO 
OP  -1  IF  NON-OCTAL  DIGIT  FOUND 
OR  -2  IF  ISTART  IS  OUT  OF  RANGE 
OP  -3  IF  ISTAPT^NCHAR  GREATER  THAN  10. 

(IF  VARIABLE  IS  INTEGER,  OFNIOE  MUST  9F  DECLARED 
INTEGER  IN  THE  CALLING  PROGRAM) 

IWOCD  - WORD  FROM  WHICH  THE  FIELD  HILL  3E  EXTRACTED 

ISTART  - FIRST  CHARACTER  POSITION  OF  FIELD  WITHIN  IWOPO 

(1-10) 

NCHAR  - NUM3ER  OF  CHAkATERS  IN  FIELD  (1-10) 

( 1ST  APT  ♦NCHAR  MUST  3E  LESS  THAN  11) 

example 

VAPTA8LE  : OFHTDE  ( 1 OL 1 2 3456 TSS 4 , 5,  3)  WILL  PRODUCE 
VARIA3LF  = 0000  0000  0000  0000  0676B 

VARIA3LE  = OFMTOE  (5L123.4,  3,  3)  WILL  PO.OOUCE 

VARIA3LE  = 7777  7777  7777  7777  77769 

7ARIA3LE  = OFMTOE  (IWORD,  0,  5)  WILL  PRODUCE 

VARIABLE  = 7777  7777  7777  7777  77753 

VARIABLE  = OFMTOE  (IWORO,  3,  3)  WILL  PRODUCE 

VARIABLE  = 7777  7777  7777  7777  7774B 

REMARKS 

NONF 

subroutine  and  function  subprograms  required 

PAPT  OF  LANGUAGF 
SHIFT 

language:  fortran  IV 
CM  required:  76B 
AUTHOP 

DAVID  V SOMMFR  - OTNSRDC  CODE  1892.2 

DATF  written:  11724/75 

DATF(5)  revised 

LOCATION  OF  decks 
source 

UPDATE  LIOPAPY:  NSRCCPL , I D=CSr S 

OBJECT 

EJITLIB  USER  LIBRARY:  NSRDC 

08/22/77  2-104  OFMTOE  - 1 OF  1 


► unctton 


•OFMTy/  • 


PU^’POSF 

O-FORMAT  OFCOPE  OP  VARIA3LF  LENGTH  INPUT 

j FUNCTIONAL  CATEGORYl  I? 

i 

f USAGE 

S VARIABLE  = OFiTV  (I) 

f OESCRIPTION  OF  PAPAf^ETERS 

VARIABLE  - WILL  CONTAIN  THE  RESULT  R I GHT - JUST  IF  I E D 
OR  -1  IF  A NON-OCTA:.  OIGIT  FOUND. 

IF  VARIABLE  IS  INTEGER,  OFNTV  MUST  BE 
DECLARED  INTEGER  IN  THE  CALLING  PROGRAM. 

I - W0R3  OF  octal  DIGITS  ENDING  WITH  AN  OCTA. 

003.  (FG,  3L 123,  9L1?3L56701) 

example 

VARIABLE  = OFMTV  (5L12345)  HI^L  RETURN 
VARIABLE  = 0000  0000  0000  0001  2345B 

VARIABLE  = OEHTV  (IL*)  HILL  RETURN 

VARIABLE  = 7777  7777  7777  7777  777G3 

I PE“AP<S 

' NONE 

subroutine  and  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  DF  language 
, SHIFT 

OTHERS 

NONE 

arithmetic  STATEMENT  FUNCTIONS 
NONE 

language*  fortran  IV 
CM  required*  35B 
AUTHOR 

DAVID  V SOMMER  - DTNSROC  CODE  1992.2 

DATE  WRITTEN*  11/24/75 

OATET?)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  library*  NSROCPL , I D=CSYS 
09UFCT 

EDITLI3  USER  LIBRARY*  NSROC 


09/22/77 
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OFMTV 


I OF  1 


SUBROUTINF 


•nVLNftME* 


oiJRPQSE 

GET  NAME  OF  FILE  CURRENTLY  BEING  EXECUTED 
FUNCTIONAL  CATEGORYt  OO 
USAGE 

CALL  OVLNAME  <I) 

DESCRIPTION  OF  PAPAHETER 

I - MILL  CONTAIN  THE  LOCAL  FIlE  NAME  CURRENTLY  BEING 
EXECUTED 


REMARKS 

»I*  MAY  BE  USED  AS  THE  FIRST  ARGUMENT  IN  'CALl  OYERlAY* 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 
NONE 

.ANGUAGEI  CDC  6000  COMPASS 
METHOD 

THE  FILE  name  IS  EXTPCACTED  FROM  BITS  59-18  OF  WORD 
RA  + 6<*3  IN  THE  USER'S  FIELD  LENGTH 

CM  REDUIRFOl  3 

author 

? - NML 

DATE  MRITTENI  ? 

DATEJS)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

TAPE  LABELLED  CSYSNSROCPL?  P.F.  NSROCPL , ID=CSYS 
OBJECT 

EOITLIB  USER  LI3RARYI  NSRDC 


08/22/77 


2-106 


OVLNAME 


I OF 


1 


5UBR0UTIME  »PARGET* 


PURPOSE 

GET  ALL  PARAMETERS  OF  USER-SUPPLIED  PARAMETER  STRING 
FUNCTIONAL  CATEGORYI  M4 
USAGE 

CALL  PARGET  (lAREA,  LAREA,  IPARAM,  NPARAM,  ISEP,  RSEP,  LSEP) 

CALL  PARGET  CIAREA,  LAREA,  IPARAM,  NPARAM,  ISEP,  RSEP) 

CALL  PARGET  (lAREA,  LAREA,  IPARAM,  NPARAM,  ISEP) 

CALL  PARGET  (lAREA,  LAREA,  IPARAM,  NPARAM) 

DESCRIPTION  OF  PARAMETERS 

lAPEA  - AREA  CONTAINING  PARAMETER  LIST  TO  BE  EXTRACTED 
LAREA  - NUMBER  OF  WORDS  IN  'lAREA*  (16  MAX) 

IPARAM  - ARRAY  TO  CONTAIN  PARAMETERS 

(IF  IT  IS  NOT  KNOWN  WHETHER  THE  PARAMETER  LIST  IN 
lAREA  CONTAINS  A TERMINATOR  (*.»  OR  *) •)  OR  NOT, 
THEN  IPARAM,  ISEP,  LSEP  AND  RSEP  SHOULD  BE 
DIMENSIONED  AT  LEAST  10  TIMES  LAREA.  THIS  WILL 
ALLOW  FOR  THE  WORST  POSSIBLE  CASE  (lAREA  ALL 
BLANKS) .) 

NPARAM  - WILL  BE  NUMBER  OF  PARAMETERS  FOUND 
ISEP  - IF  PRESENT,  ARRAY  TO  CONTAIN  A CODE  IDENTIFYING 
THE  SEPARATOR  FOUND  FOLLOWING  THE  CORRESPONDING 
PARAMETER 

DEC  OCT  SEPARATOR 
1 1 . 

2 2 = 

3 3/ 

4 4 ( 

6 5 ♦ 

6 6- 

7 7 BLANK 

6 lOB  ; 

14  16B  OTHER 

15  17B  . OR  ) (TERMINATOR) 

RSEP  - IF  PRESENT,  ARRAY  TO  CONTAIN  THE  SEPARATOR 
FOUND  (IR  FORMAT) 

LSEP  - IF  PRESENT,  ARRAY  TO  CONTAIN  THE  SEPARATOR 
FOUND  (IL  FORMAT) 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
LOCF 
OTHERS 

EXTPRM  - extract  THE  NEXT  PARAMETER 

APITHMETIC  STATEMENT  FUNCTIONS 
NONE 

CM  PEQUIREOt  106S 
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PARGET 
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<VUTHOR 

□AVIQ  V SOMMER  - SOOf  199?. 2 
DATE  WRITTENI  04/11/74 
aATE(S)  REVISED 

11/19/75  - NAME  CHANGED  FROM  SETPAR  TO  PARGET  TO  AVOID 
CONFLICT  WITH  SYSIO  ROUTINE  OF  SAME  NAME 
06/24/76  - PROCESSING  OF  OPTIONAL  PARAMETERS  MODIFIED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARVI  NSROCPL , IO=CSy S 
OBJECT 

EOITLIB  USER  LIBRARYI  NSROC 


06/24/76 
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PARGET 
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SUBPOUTINF  »PFRC» 


PIJRPOSF 

SUPPLr  DESCRIPTION  OF  PERMftNENT  FILE  FUNCTION  RETURN  CODE 
FUNCTIONAL  CATEGORri  QO 
LANGUAGE!  FORTRAN  IV  EXTENDED 
’ENARKS 

THE  DESCRIPTIONS  A^F  THOSE  FOUND  IN  THE  SCOPE  REFERENCE 
HANUAL  (F0307200  G)  ON  PAGE  5-20. 

USAGE 

call  PFRC  (IRC,  A! 

DESCRIPTION  OF  PARA«'ETEPS 

IRC  - RETURN  CODE  FROM  THE  PERMANENT  FILE  FUNCTION 
A - 5-HOSO  array  WHICH  WILL  CONTAIN  THE  DESCRIPTION  OF  THE 
SUPPLIED  'IRC' 

(IF  'IPC*  IS  INVALID,  'UNKNOWN  RETURN  CODE*  IS 
PETUPNED) 

CM  PFDUIREOI  7223 

SUBOOUTTNE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
MOVLFV 

others 

NONE 

autho® 

DAVID  V SOMMER  - OTNSRDC  CODE  1892.2 
DATE  WRITTEN!  05/18/76 
OATE(S)  REVISED 

02/l«»/77  - UPDATE  FOR  NOS/BE  1.0 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSROCPL , ID=CSYS 
OBJECT 

E0ITLI3  USER  LIBRARY!  NSRDC 


/t4/77 
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PFRC 


1 OF 


1 


S'J!3*'*.0UTINE  ‘PLOTPR* 


I 


Qf>i/?7/7f, 


“(JPPOSE 

PRODUCE  PRINTER  PLOTS  WHICH  HAY  HAYEl 
1>  ANY  NUHREP  OF  PLOTS  PER  RJN 

2)  ANY  NUMBER  OF  VALUES  FOR  THE  INDEPENDENT 

3)  UP  TO  q DEPENDENT  VARIABLES  PER  PLOT. 
FUNCTIONAL  CATEGORY!  J5 


VARIABLE 


JSAGE 

COMMON  /PLO/  NPUN,  NPLOT,  ITP(6),  ITY{6),  ITX(6), 
NUMPAG,  MAXSCA,  SCA(IO),  FROM(IO) 


CALL  INITPLO 

SET  ANY  SPECIAL  VALUES  IN  COMMON  /PLO/  AFTER  »CALL  INITPLO' 


C WRITE  DATA  FOR  THE  PLOT 
DO  5 I=l,NOPTS 

S WRITE  (NFILE)  VARIND(I),  VARDEPKI),  ...»  VAROEPNTH 
• • • 

call  PLOTPR  (NFILE,  NUMVAR,  IVAR) 

DESCRIPTION  OF  PARAMETERS 

NFILE  - FORTRAN  LOGICAL  UNIT  NUMBER  OF  FILE  CONTAINING 

THE  DATA  VALUES,  INDEPENDENT  FOLLOWED  BY  DEPENDENT 
NUMVAR  - number  OF  VARIABLES 

(TOTAL!  INDEPENDENT  ♦ DEPENDENT) 

IVAR  - lO-WORD  ARRAY  WITH  ALPHANUMERIC  NAMES  FOR  THE 
VARIABLES  WHICH  WILL  APPEAR  ON  THE  PLOT 

additional  INFORMATION  IS  PROVIDED  THRU  LABELLED  COMMON 
BLOCK  /PLO/ 


NRUN 

- NUMBER  OF  THIS 

RUN 

(DEFAULT  1 

1) 

NPLOT 

- NUMBER  OF  PLOT 

(DEFAULT! 

1) 

ITP 

- PAGE  TITLE 

(DEFAULT  ! 

BLANK) 

ITY 

- Y TITLE 

(DEFAULT! 

BLANK) 

ITX 

- X TITLE 

(DEFAULT! 

BLANK) 

(TITLE  ARRAYS  A 

RE  f> 

WORDS  EACH 

OF  UP 

TO  6 

characters  per 

WORD 

- 6A6  FORMAT) 

NUMPAG 

- NUMBER  OF  DOUBL 

E “A 

GES  TO  SPREAD  THE 

PLOT 

OVER  (NO  MORE 

THAN 

100  POINTS 

PER  PAGE) 

(DEFAULT!  1) 

MAXSCA 

- SCALING  OPTION 

1 - OPTIMUM  SCALING 

IS  CALCULATED  FOR 

EACH 

VARIABLE  (DEFAULT) 

2 - PLOT  ALL  DEPFNOENT  VARIABLES 
SAME  SCALE 

(IF  THE  PROGRAMMER  SCALES 


OEPENOENT  VARIABLES,  THIS 


ANY  OF 
OPTION 


ON  THE 
THE 

IS  DEFAULTED) 


1 
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SCA  ANO  from  - 

ARRAYS  CONTAINING  THE  INCREMENTS  AND  THE 
STARTING  values  E3R  EACH  VARIABLE. 

IF  ONE  OF  these  arrays  IS  USED  FOR  A VARIABLE, 
BOTH  MUST  BE  USEO. 

IF  THERE  ARE  MORE  THAN  101  VALUES  FOR  THE 
INOEPENOENT  VARIABLE,  THOSE  VALUES  MUST  HAVE  A 
CONSTANT  INCREMENT  AND  THE  SCALING  IS  ALWAYS 
BASED  ON  that  INCREMENT. 

OEFAULTI  OPTIMUM  SCALE  AND  STARTING  VALUE 
ARE  CALCULATED  FOR  EACH  VARIABLE) 

REMEMBER  TO  PUT  ‘TAPENFILE*  INTO  PROGRAM  STATEMENT  OF  THE 
MAIN  program. 

REMARKS 

A CALL  TO  'INITPLO*  HILL  SET  THE  DEFAULT  VALUES. 

THE  MINIMUM  SI7E  OF  A GRID  IS  101  X 101  POINTS  (THIS  IS 
1-1/2  COMPUTER  PAGES).  IF  MORE  THAN  101  VALUES  FOR  THE 
INDEPENDENT  VARIABLE  ARF  GIVEN,  THE  REQUIRED  INTEGRAL 
NUMBER  OF  lOO-POiNT  GRIDS  ARE  AUTOMATICALLY  JOINED  TOGETHER. 


THE  NAME 
X TITLE) 

and  plot 

ARE  GIVE 
Y TITLE 


AND  VALUES  OF  THE  INOEPENOENT  VARIABLE  (AND 
ARE  GIVEN  IN  THE  LEFT  MARGIN.  THE  NAMES,  SCALES 
YING  CHARACTERS  (A-I)  FOR  THE  DEPENDENT  VARIABLES 
N AT  THE  TOP  OF  THE  PAGE  WITH  THE  PAGE  TITLE  AND 
ABOVE  THEM. 


REQUIRED 

AMINl 
REWIND 

LANGUAGE)  FORTRAN  IV 
CM  REQUIRED)  1202B 


SUBROUTINE  AND 

FUNCTION 

SUBPROGRAMS 

PART  OF  LANGUAGE 

A3S 

ALOGIO 

AMAXl 

COMPL 

OTHERS 

EOF 

OR 

ORAWGD 

(221B  CM) 

INITGD 

( A78  CM) 

INITPLO 

( 216  CM) 

AND 

SHIFT 


AUTHOR 

ADAPTED  FROM 


MIMIC  BY  ANN  BANDURSKI 


NSRDC  CODE  1333 


DATE  WRITTEN)  OB/22/72 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY  ON  TAPE  LABELLED)  CLIBRARYUPD3 
OBJECT 

EDITLIB  USER  LIBRARY)  NSR3C 


0*5/01/75 
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SUBROUTINE  'POLYN* 


PURPOSE 

LEAST  SQUARES  POLYNOMIAL  FIT 
(FUNCTIONAL  CATEGORY!  E3 
LANGUAGE!  fortran 
REMARKS 

fit  an  N-TH  degree  polynomial  to  SETS  OF  POINTS  (X(I),  Yd), 
7<I),  ...),  where  X IS  the  INOEPENOENT  VARIABLE  IN  EACH 
CASE,  (1  = 1,?,...  ,N)  . 

PN(X)  = A(G)  »•  A(l)*X  ♦ A(?)*K**?  ♦ ...  * A(N)*X»*N 


USAGE 

CALL  POLYN  (NO,  NP,  NC , X,  Y,  NAPT,  A,  V,  SUM) 


DESCRIPTION  OF  PARAMETERS 


NO 

NP 

NC 

X 

Y 


NAPT 


SUM 


degree  of  POLYNOMIAL  (N) 

NUMBER  OF  POINTS  IN  SET  OF  OBSERVATIONS 
(X(I)  , Y(I)  , Z(I)  , ...) 

NUMBER  OF  CURVES  TO  BE  FIITEO 

(E.G.,  Y,  7,  ...) 

ARRAY  CONTAINING  THE  DEPENDENT  VARIABLE 
ARRAY  CONTAINING  THE  INOEPENOENT  VARIA3LE(S) 

MUST  BE  niMENSIONEO  AT  LEAST  (NC,NOfl). 

Y(U,  Y(2),  ...  MUST  BE  CONTIGUOUS  IN  MEMORY. 

7(1)  NEED  NOT  FOLLOW  Y(N)  IMMEDIATELY. 

NUMBER  OF  LOCATIONS  BETWEEN  SETS  OF  DATA 
Y,  7,  ...  (NUMBER  OF  WOROS  BETWEEN  Y(N)  ANO 
7(l».l  ALL  SETS  Y,  7,  ...  MUST  BE  EQUALLY  SPACED, 
WORK  ARRAY  USED  IN  MATRIX  SOLUTION  OF  THE  (NO«^l) 
SETS  OF  LINEAR  EQUATIONS.  MUST  BE  DIMENSIONED 
AT  least  (N0*1,ND»1), 

OUTPUT  ARRAY  USED  IN  MATRIX  SOLUTION  FOR  VECTOR. 
MUST  BE  niMENSIONEO  AT  LEAST  (NC,NOH). 

WORK  APRAY  FOR  SUMS  OF  POWERS  OF  X. 

MUST  BE  DIMENSIONED  AT  LEAST  (2*N0+1). 


CM  ^EOUIRFDl  2333 


(f  173B  FOR  ENXEN) 


METHOD 

LEAST  SQUARES  - MINIMIZING  SUM  OF  SQUARES  OF  DEVIATIONS  FROM 
AVERAGE. 
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POLYN 


I OF 


2 


F 


SU^'^OUTINE  ftMO  FUNCTION  SUBPROGRftNS  REQUIRED 
PART  OF  language 

NONE  I 

PART  OF  PROGRAM  I 

ENXEN 
OTHERS 

NONE  I 

AUTHOR 

J.  N.  BROOKS 

OATE  WRITTENI  01/29/60  j 

OATFfS)  RFVTSEO  t 

LOCATION  OF  OECK3 
SOURCE 

TARE  LABELLED  CLTBRARYUPD5  (DECK*  ARPLNl) 

OBJECT 

FOITLIB  USER  LIBRARY!  NSROC  j 


06/09/// 
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SIJ'^RDUTINE  'PROOT' 


PURPOSE 

FIND  ALL  ROOTS  OF  A PEAL  POLYNJOMIAL 
Functional  categoryi  cz  ra 

LANGUAGEI  FORTRAN  IV 


REMARKS 

THE  dOLYNOMIAL  HAS  THE  FORMI 

A ♦ A X ♦ . . . ♦ A X**N  = 0 

12  N+1 


JSAGE 

CAUL  oROOT  (N,  A,  U,  V,  H,  8,  C,  CONV,  NPLUS2) 

OESCPIPTION  OF  PARAMETERS 

N - DEGREE  OF  THE  POLYNOMIAL  TO  3E  SOLVED 

A - ARRAY  (DIMENSIONED  N*2)  CONTAINING  THE  COEFFICIENTS 

IN  THE  ORDEP  INDICATED  ABOVE 
U - ARRAY  (DIMENSIONED  N»2)  WHICH  MILL  CONTAIN  THE 

REAL  PARTS  OF  THE  ROOTS 

V - ARRAY  (DIMENSIONED  N«-2)  WHICH  WILL  CONTAIN  THE 

IMAGINARY  PARTS  OF  THE  ROOTS 
H,8,C  - WORK  ARRAYS  (EACH  OIMENSIONEO  Nt2) 

CONV  - CONVERGENCE  CRITERION.  INITIALLY  SET  BY  PROOT  TO 
l.OE-35  (FAR  BELOW  THE  ACTUAL  STARTING  CONVERGENCE 
CRITERION  OF  5.0E-2a  (COG  6600).  IF  THE  POLYNOMIAL 
HAS  NOT  CONVERGED  AFTER  A PRESCRIBED  NUMBER  OF 
TRIPS,  THF  CONVERGENCE  CRITERION  IS  RELAXED.  IF, 
UPON  EXIT  FROM  PROOT,  CONV  IS  NOT  l.OE-35,  THE 
CONVERGENCE  CRITERION  HAS  BEEN  RELAXED  TO  THE 
NUMBER  GIVEN. 

NPLUS2  - MUST  3F  SET  TO  N+2 
CM  REDUIRED*  <1638 
METHOD 

THE  ROUTINE  CONVERGES  SIMULTANEOUSLY  TOWARD  A LINEAR  FACTOR 
and  a QUADRATIC  FACTOR  3Y  NEWTON'S  AND  BAIRSTOW'S  METHODS, 
RESPECTIVELY,  WHEN  A ROOT  IS  FOUND  BY  ONE  METHOD,  ITERATION 
CONTINUES  WITH  80TH  METHODS  USING  THEIR  MOST  RECENT  GUESSES. 

SUBPOUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

ADS  SIGN  SORT 

others 

NONE 


02/25/77 
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PROOT 
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AUTHORS 

HIPIAH  SHAPIRO 

HARVer  ABRAMSON  - NEW  YQPK  UNIVERSITY 


DATE  WRITTEN!  UNKNOWN  - ADAPTED  EROM  LOS  ALAMOS  ROUTINE 

LA-PROOT  BY  T.  L.  VOROAN  (MS)  j 

OATECS)  REVISED 

11/65  - CONVERTED  TO  DOC  6600  (HA) 

LOCATION  OE  DECKS 
SOURCE 

TAPE  LABELLED!  CLIBRARYUP05 
OBJECT 

EDITLIB  USER  LIBRARY!  NSROC  i 

J 


07/25/77 


2-115 


PROOT 


2 OE  2 


SUBROUTINE  'PRTFL* 


PUP'^OSE 

PRINT  CURRENT  FL  (OR  PUT  INTO  DAYFILE) 
FUNCTIONAL  CATEGORIES*  QO  J2 
USAGE 

call  PPTFL  (IOUT) 

DESCRIPTION  OF  PARAMETER 

IOUT  - FORTRAN  LOGICAL  UNIT  NUMBER 

((j=PUT  INTO  dayfile;  n=write  on  TAPEN) 


REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SU3PR0GPAMS  REQUIRED 
PART  OF  LANGUAGE 
REMARK 

others 

FTNRFL  - GET  CURRENT  FL 

Arithmetic  statemfnt  functions 

NONE 

.anguage*  fortran  IV 

CM  REQUIREO:  SOB 
AUTHOR 

DAVID  V SOMMER  - N5R0C  CODE  lf>92.2 

DATE  WRITTEN*  OL/16/75 

DATF(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY*  NSRDCPL , I 0 = CS Y 3 
OBJECT 

EOITLIB  USER  LIBRARY*  N5R0C 


i 


09/22/77 


2-116 


PRTFL 


1 


r 


SUR=?0UTINF  'PRTIiE' 

PtJOPOSF 

GET  asD  PRINT  CPA,  CPB,  CP,  P®,  10  A NO  HALL  CLOCK  TIMES 
SINCP  LAST  CALL  AND  PRINT  USER-SUPPL lEO  MESSAGE 

FUNCTIONAL  categories*  Q4  J4  NO 


JSAGE 

CALL 

CALL 


pRTIME 

prtine 


( lOUNIT , 
(lOUNIT, 


TIMES,  MSG) 
TIMESi  0) 


description  of  parameters 


lO'JNIT 


times 


FOR  PRINTED 
•RAN  logical 
•ASTER  LOCAL 


LINE 

UNIT 

FILE 


MSG 


OUTPUT  UNIT 
(EITHER  FORT 
1-  TO  7-CHAR 
ZEPO-FILLED  (E.G.,  SLOUTPUT)) 
7-WORD  ARRAY 

1 - ELAPSED 

2 - ELAPSED 
^ - ELAPSED 
4 - ELAPSED 

s - elapsed 

G - ELAPSED 
7 - ELAPSED 
5-WORD  MESSA 
(IF  SUPPLIED 
than  5 WORDS 
(IF  MSG(1)  I 
TIMES,  WILL 


NUMBER  (1-95)  OR 
NAME,  LEFT-ADJ, 


TO 

CONT 

AIN 

THE  POLL 

owl 

NG  1 

CPA 

TIME 

IN 

SECONDS 

CP8 

TIME 

IN 

SECONDS 

CP 

TIME 

IN 

SECONDS 

(CP 

A+CPB) 

PP 

TIME 

IN 

SECONDS 

10 

TIME 

IN 

SECONDS 

WALL  CLO 

CK 

TIME  ( HH 

.MM 

.SS.) 

WALL  CLO 

CK 

TIME  IN  S 

ECO 

NOS 

GE 

TO  BE 

PRINTED 

AS 

MOLL 

ERI 

TH  CONSTA 

NT, 

MAY  BE 

• 

SEE  E 

KAMPLE  BELOW 

) 

S 0 

(OR 

ILO 

OR  IHO) , 

HE 

AOINGS, 

BE 

PRINT 

ED. 

) 

■EWER 


BUT  NOT 


REMARKS 

NONE 


ANO  FUNCTION 

language 


SUBPROGRAMS  REQUIRED 


SUBROUTINF 
PART  OF 
NONE 
OTHERS 

FLTIME  - GET  ELAPSED  TIME  SINCE  LAST  CALL 

FINOCHR  - FIND  FIRST  OCCURRENCE  OE  CHARACTER  IN  ARRAY 

ARITHMETIC  STATEMENT  FUNC'^'IONS 
NONE 


LANGUAGFt  FORTRAN  IV 

OUTPUT  UNITS 

UNIT  # LFN 

USER  SPECIFIES... 

CM  REOUIREO*  1028 


USE 


IISTABLE  OUTPUT 


Ofl/22/77 
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PRTIME 


I OF  2 


example 


PKOGRAM  TEST  (OUTPUT=128,  

REAL  TIHES(r) 

C GET  INITIAL  TIMES  AND  PRINT  HEAOING 
CALL  PPTIME  (SLOUTPUT,  TINES,  0) 


C GET  ELAPSED  TIMES  AND  PRINT  NITN  MESSAGE 

call  PRTIME  (GLOUTPUT,  times,  “TEST  NUMBER  1“» 

• • • 

C NEW  headings  ARE  NOT  NEEDED,  SO  CALL  ELTIME  DIRECTLY 
CALL  ELTIME  (TIMES) 


C GET  ELAPSED  TIMES  ANU  PRINT  WITH  MESSAGE 

CALL  PRTIME  (6L0UTPUT,  TIMES,  “TEST  NUMBER  2“) 

• • • 

END 

author 

DAVID  V SOMMER  - OTNSROC  CODE  1992.2 

DATE  WRITTEN!  04/20/76 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIDRARYI  N 3RDCPL , I 0=CSr S 
OBJECT 

EDITLI3  USER  LIBRARY!  NSRDC 


I 
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SUBROUTINE  'PUTCNA* 

FUNCTION  'PUTCHA* 

PURPOSE 

INSERT  CHARACTER  INTO  SPECIFIED  POSITION  IN  AN  ARRAT 
FUNCTIONAL  CATEGORn  Nt. 

USAGE 

CALL  aUTCHA  (A,  N,  CH) 

VARIABLE  = PUTCHA  (A,  N,  CH) 

DESCPIPTION  OF  PARAMETERS 

A - APPAT  INTO  WHICH  CHARACTER  IS  TO  BE  INSERTED 
N - POSITION  AT  WHICH  CHARACTER  IS  TO  BE  INSERTED 

(POSITION  1 IS  LEFT-MOST  G-BIT  CHARACTER  IN  A(l)) 

CH  - CHARACTER  TO  BE  INSERTED  (IN  IR  FORMAT) 

(WHEN  USED  AS  A FUNCTION,  PUTCHA  WILL  CONTAIN  THE  WORD 
IN  »A*  WHICH  WAS  CHANGED) 

REMARKS 

•PUTCHA*  IS  AN  ENTRY  POINT  IN  'GETCHA*. 

SUBPOUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
SHIFT 
OTHERS 
NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE!  FORTRAN  IV 

CM  REQUIRED!  52B  (UNLESS  GETCHA  IS  ALSO  CALLED) 

AUTHOR 

QAVID  V SOMMER  - DTNSROC  CODE  1892.2 

DATE  WRITTEN!  03/16/26 

nATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , ID =CS YS 
OBJECT 

FDITLia  USEP  LIBRARY!  NSRDC 


/22/22 
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SUBPOUTINE  'PUTCHR* 
FUNCTION  •PUTCHP* 


PURPOSE 

INSERT  CHARftCTEP  INTO  SPECIFIEO  POSITION  IN  A WORD 

functional  category* 


CALL  PUTCHR  (A,  N,  CH) 
VARIABLE  = PUTCHR  (A,  N,  CW) 


DESCRIPTION  OE  PARAMETERS 

A - WORD  INTO  WHICH  CmARACTER  IS  TO  BE  INSERTED 
N - POSITION  AT  WHICH  CHARACTER  IS  TO  BE  INSERTED 
(POSITION  1 IS  LE'^T-MOST  6-8IT  CHARACTER  IN  A) 

CH  - character  to  be  Inserted  (in  h format) 

(WHEN  USED  AS  A FUNCTION,  PUTCHR  WILL  CONTAIN  THE  SAME 
AS  'A') 


REMARKS 

'PUTCHR*  IS  AN  ENTPV  POINT  IN  'GETCHR*. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REOUIRED 
PART  OF  LANGUAGF 
SHIFT 
OTHERS 
NONF 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

. ANGUAGFt  FORTRAN  IV 


CM  PEOUIREDt  438  (UNLESS  GETCHR  IS 


ALSO  CALLED) 


AUTHOR 

FROM  ITMFD  PACKAGE 
OATF  WPITTENI 
OATE(S)  REVISED 

1975  - DAVID  V SOMMER  - DTNSPDC  CODE  1892.2 

location  of  decks 

SOURCE 

UPDATE  LIPRARYI  NSRDCPL , I0=CSYS 
OBJECT 

EDITLIB  USER  LIBRARYJ  NSRDC 


08/22/77 
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PUTCHR 


I OF 


1 


JSaGE 

CALL  ISO?!  (A,  I) 


TESCRIPTION  OE  PARAMETERS 

A - ARRAY  TO  BE  S0PTF3  INTO  ASCENDING  ORDER 
I - NIJM3ER  OF  WORDS  IN  'A*  TO  3E  SORTED 

REMARKS 

*QSORT»  IS  THE  MOST  EFEICIENT  SORT  AVAILABLE  (AS  OF  DATE 
BFLOW)  FOR  THE  SORTING  IN  CORE  OF  ARRAYS  LARGER  THAN  500 
WORDS. 

THIS  ROUTINE  IS  A TRANSLATION  OF  ALGORITHM  402f  COMM.  ACM 
NOV,  1970. 

IF  THE  JOB  ABORTS  WITH  THE  'P*  COUNTER  IN  QSORT,  CHECK  IF 
MN  EXCEEDS  KL.  IF  SO,  WRITE  DUMMY  SUBROUTINE  TO  SET  KL 
ANO  THF  DIMENTION  OF  K GREATER. 

SUBROUTINE  And  function  subprograms  required 

PART  OF  LANGUAGE 
LOCE 
OTHERS 
NONE 

arithmetic  statement  FUNCTTONS 
NONE 

LANGUAGE!  fortran  TV 
CM  '^EOUIRED!  2lf>B  ♦ 578  COMMON 

author 

C FLINK  - KPS  NWL 

DATE  W^ITTENJ  ll/?5/70 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYI  NSR DCPL , I D=C SV S 

OBJECT 

EDITLIB  USER  LIBRARY!  NSROC 


0»/22/77  2-121  QSORT  - 1 OF  1 


SUBPOJTIHE  ‘flSORTl* 

PURPOSE 

IN-CORE  ASCENDING  SORT  WITH  RE-ORDERiNG  OF  ASSOCIATED  ARRAY 
(FOR  ARRAYS  LARGER  THAN  500  WORDS) 

FUNCTIONAL  CATEGORri  N1 

USAGE 

CALL  aSORTl  (A,  I,  T) 

DESCRIPTION  OF  PARAMETERS 

A - ARRAY  TO  3E  SORTED  INTO  ASCENDING  ORDER 
I - NUMBER  OF  WORDS  IN  'A*  TO  BE  SORTED 
T - ASSOCIATED  ARRAY  TO  BE  REORDERED 

REMARKS 

•QSORTl*  IS  HE  MOST  EFFICIENT  SORT  AVAILABLE  (AS  OF  DATE 
BELOW)  FOR  THE  SORTING  IN  CORE  OF  ARRAYS  LARGER  THAN  500 
WORDS. 

THIS  ROUTINE  IS  A TRANSLATION  OF  ALGORITHM  A02,  COMM.  ACM 
NOV,  1970. 

IF  THE  ARRAY  'T*  IS  NOT  NEFOED,  USE  »QSORT*. 

IF  THE  JOB  ABORTS  WITH  THE  *P»  CONTER  IN  QSORTl,  CHECK  IF 
MN  EXCEEDS  KL.  IF  SO,  WRITE  DUMMY  SUBROUTINE  TO  SET  KL 
and  THE  dimension  OF  K GREATER. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  DF  LANGUAGE 
LOCF 
OTHERS 
NONE 

arithmetic  STATEMENT  FUNCTIONS 
NONE 

language*  fortran  rv 

CM  PEQUIREOI  266B  ♦ 578  COMMON 
AUTHOR 

C FLINK  - KPS  NWL 
DATE  WRITTENI  11/30/70 

date(S)  revised 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRAPYI  NSRDCPL , IO=CSYS 
OBJECT 

E0ITLI3  USER  LIBRARY!  NSROC 


SUBROUTINE  *RCPA» 


PURPOSE 

REaO  (A  PORTION  OF)  CONTROL  POINT  AREA 
FUNCTIONAL  CATEGORY  K2 
USAGE 

CALL  RCPA  (ISTART,  NWORDS,  AREA) 

DESCRIPTION  OF  PARAMETERS 

ISTART  - STARTING  WORD  IN  CONTROL  POINT  AREA 
NMOROS  - NUMBER  OF  HOROS  TO  READ 
AREA  - ARRAY  TO  HOLD  THE  SPECIFIED  WORDS 
(AREA(2)  THRU  AREA ( NH OROS ♦! ) ) 

REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 
NONE 

LANGUAGE!  CDC  6000  COMPASS 

CM  REQUIRED!  433 

AUTHOR 

MIKE  GOLDEN  - OTNSRDC  CODE  1944 
DAVID  V SOMMER  - DTNSRDC  CODE  1892,2 

DATE  WRITTEN!  11/75 

DATECS)  REVISED 
12/03/75 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSROCPL, IO=CSYS 
OBJECT 

EOITLIB  USER  LIBRARY!  NSRDC 


08/22/77 
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RCPA 
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r 


SUBROUTINIE  'RECOVRO' 

PURPOSE 

ON  RECOVERY,  PRINT  EXCHANGE  JJMP  PACKAGE,  RA+0  THRU  RA+77B 
AND  ENORUN  INDICATOR 

FUNCTIONAL  CATEGORIES!  J9  N2 

LANGUAGE!  FORTRAN  IV  EXTENDED 

REMARKS 

NONE 

USAGE 

• • • 

EXTERNAL  RECOVRO 

• • « 

CALL  RFCOVR  (RECOVRD,  77B,  0) 


--OR— 

• • • 

EXTERNAL  ANY 

• • • 

CALL  RECOVR  (ANY,  77B,  0) 

• • • 

SUBROUTINE  ANY  (EXCHJP,  ENORUN,  RAO) 
DIMENSION  EXCHJPd/) 

CALL  RECOVRO  (EXCHJP,  ENORUN,  RAO) 


DESCRIPTION  OF  PARAMETERS 

FXCHJo  - 17-WORD  ARRAY  TO  HOLO  EXCHANGE  JUMP  PACKAGE 
ENORUN  - ENORUN  INDICATOR  (WI»L  HAVE  MEANING  ONLY  IF  SECOND 
FORM  OF  USAGE  IS  USED  ANO  IF  ENORUN  IS  SET  BEFORE 
THE  CALL  TO  RECOVRO) 

RAO  - RA»0  POINTER  (NOT  USED  BY  THIS  SUBROUTINE) 

CM  REOUIRED!  601B 


OUTPUT  UNITS 
LFN 


USE 


OUTPUT 


LISTA8LE  OUTPUT 


SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
SHIFT 
OTHERS 

GFTRA  - GET  RA*0  THRU  RA*773 


OA/23/77 
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RECOVRD  - I OF 


fiUTHOR 


1 


Qfi/23/77 


DAVIO  V SO'iMFR  - OTNSROC  COOF  1392.2 

OaiF  WPITTENI  Ofi/19/74 

9ATE(S)  RFWISFO 

LOC4TION  OF  OFCKS 
SOURCE 

UPDATF  LIBRARY!  N 3? DCPL , 1 0 = CSYS 
OBJECT 

FOITLIB  user  LIBRARY!  NSRDC 
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RECOVRD  - 2 of  2 I 

I ^ 


SURfOUTI-^E  'REDUSE* 


PURPOSE 

REDUCE  FL  TO  MlNIflUM  OR  REQUEST  400rri0N4L  FL  RELATl^/E  TO 
STftPT  OF  BLANK  COiNON 

functional  categoryi  Qa 


USAGE 

CALL  REOOOE  - REDUCE  TO  FIRST  HOF 

CALL  REDUCE  (I)  - ADJUST  TO  'I*  WORDS 

COHMON 

DESCRIPTION  OF  PARAHETEP. 

I - IF  PRESENT,  NUMBER  OF  WORDS  PAST 


0 OF  BLANK  COMMON 
AFTER  START  OF  BLANK 


START  OF  blank  COMMON 


REMARKS 

NONE 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
LOCF 
SHIFT 
OTHERS 

MFETCH  - GET  SPECIFIED  WORD  IN  USER'S  FL 
MSET  - SET  SPECIFIED  WORD  IN  USER'S  FL 

ARITHMETIC  statement  FUNCTIONS 
NONE 


LANGUAGE!  FORTRAN  IV 

CM  REOUIREOI  360  (PLUS  1 IN  BLANK  COMMON) 

AUTHOR 

? - NWL 


DATE  WRITTEN!  ? 


DATF(S)  REVISED 

LOCATION  OF  DECKS 
POURCE 

TAPE  LABELLED  CSYSNSROCPL?  P.F.  NSROCPL , IO=CSY3 
OBJFCT 

EDITLIB  USER  LIBRARY!  NSROC 


Q^/2?/77 
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REDUCE 


I OF  I 


SUBROUTINE  'REPLftC* 


PURPOSE 

REPLACE  ONE  CHARACTER  OT  ANOTHER  IN  AN  ARRAY 


FUNCTIONAL  CATEGORYI 


M4 


USAGE 

call  REPLAC  (A,  NA,  OLO,  NEW) 

OESCPIPTION  OF  PARAMETERS 

A - ARRAY  TO  BE  PROCESSED 

NA  - number  of  words  in  'A'  TO  3E  PROCESSED 
OLD  - OLO  character  (1R  FORMAT) 

NEW  - NEW  CHARACTER  (IR  FORMAT) 

remarks 

ALL  parameters  ARE  TYPE  'INTEGER' 

SUBROUTINE  AND  FUNCTIONS  REQUIRED 
PART  OF  LANGUAGE 
SHIFT 
OTHERS 
NONE 

arithmetic  STATEMENT  FUNCTIONS 

L91FMT  - FAST  L-FCRMAT  DECODE  <LEFT-A0J,  ZERO-FILLED) 
RllOFMT  - FAST  R-FORMAT  DECODE  (RIGHT-AOJ,  ZERO-FILLED) 

LANGUAGE!  FORTRAN  IV 

CM  REQUIRED!  S7B 


AUTHOR 

DAVID  V SOMMER  ■ 
DATE  WRITTEN!  1973 


DTNSTDC  CODE  1892.2 


DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , I 0=CSYS 

OBJECT 

EOITLIB  USER  LIBRARY!  NSROC 


OB/22/77 
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REPLAC 


1 OF 


1 


SUB^OUTIME  'i^EPLACM* 


PURPOSE 

PFPLA:E  old  CHflFADTERS  WIT-<  NEW  CHARACTERS 
functional  CATFGORYl  MA 


USAGE 

CALL  REPLACM  (A,  NA,  OLDt  NEW,  NCH) 

DESCRIPTION  OF  PARAMETERS 

A - ARRAY  TO  BE  PROCESSED 

NA  - NUMBER  OF  WORDS  IN  'A*  TO  BE  PROCESSED 
OLO  - ARRAY  OF  OLD  CHARACTERS  (IR  FORMAT) 

NEW  - ARRAY  OF  C ORRES PONDING  NEW  CHARACTERS  (IR  FORMAT) 

NCH  - number  of  change  PAIRS  (DIMENSION  OF  *OLO'  AND  *NEW*) 


REMARKS 

ALL  arguments  ARE  TYPE  'INTEGER*. 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
SHIFT 
OTHERS 
NONE 

APITHMETIC  STATEMENT  FUNCTIONS 

LBIFMT  - FAST  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILLEO) 
RllOFMT  - fast  R-FORMAT  DECODE  (RIGHT-AOJ,  ZERO-FILLED) 

LANGUAGE!  FORTRAN  IV 

CM  REQUIRED!  ZJ8 


author 

DAVID  V SOMMER 


NSROC  CODE  199Z.Z 


DATE  WRITTEN!  0G/21/7G 


DATE(S)  REVISED 

LOCATION  OF  DFCKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , ID=CSYS 
D8UFCT 

EOITLIB  USER  LIBRARY!  NSROC 


OB/ZZ/ZZ 


REPLACM 
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SUBI’OUTInF 


REPLHI * 


PU9P0SF 

PEPLfl^E  ALL  CUflRACTEPS  GREATER  THAN  SPECIFIEO  CHARACT£p  WITH 
NEW  character 

FUNCTIONAL  category: 


USAGE 

CALL  REPLHI  (A,  NA , OLO,  NEW» 

TESCRTPTION  OF  PARAMETERS 

A - APPAY  TO  OE  PROCESSED 

NA  - NUMBER  OF  WORDS  IN  *A'  TO  BE  PROCESSED 
OLD  - OLD  CHARACTER  (IR  FORMAT* 

NEW  - NEW  CHARACTER  (IR  FORMAT) 

RFMAPRS 

ALL  parameters  ARE  TYPE  'INTEGER* 

S'Jbroutinf  And  functions  required 
part  OF  language 

SHIFT 

others 

NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 

L91FMT  - FAST  L-FORMAT  DECODE  (LEFT-ADUi  ZERO-FILLED) 
"IIQFMT  - fast  R-FORMAT  DECODE  (RIGHT-ADJ,  ZE RO- F I L . E 3> 

language*  FORTRAN  IV 

CM  REOUIREOt  GOB 

author 

DAVID  V SOMMER  - OTNSRDC  CODE  1392. Z 

DATE  written:  01/26/76 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOUPCE 

UPDATE  library:  NSRDCPL , I0=CSYS 

OBJECT 

editlib  usep  library*  NSROC 


03/22/77 
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replhi 
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■iUqROUTINE  'RFPLLO* 

PURPOSE 

REPLACE  ALL  CHARACTERS  LESS  THAN  SPECIFIED  CHARACTER  KITH 
new  CHARACTER 

FUNCTIONAL  CATEGORTI  M4 
USAGE 

CALL  REPLLO  (A,  NA , OLO,  NEW) 

OFSCRIPTION  OF  PARAMETERS 

A - ARPAT  TO  BE  PROCESSED 

NA  - NUMBER  OF  WORDS  IN  *A»  TO  BE  PROCESSED 
OLO  - OLO  CHARACTER  (IR  FORMAT) 

NEW  - new  character  (LR  FORMAT) 

REMARKS 

ALL  parameters  are  type  'INTEGER' 

SUBROUTINE  AND  FUNCTIONS  REQUIRED 
PART  OF  LANGUAGE 
SHIFT 
OTHERS 
NONE 


arithmetic  statement  FUNCTIONS 


L91FMT  - FAST 
RllDFHT  - FAST 

L-FORMAT 

P-FORMAT 

DECODE  (LEFT-ADJ, 
DECODE  (RIGHT-ADJ, 

-anguage!  fortran 

IV 

OH  REQUIRED!  606 

AUTHOR 

DAVID  V SOMMER 

- DTNSRDC 

CODE  1992.2 

DATF  WRITTEN!  01/ 

26/Z6 

oate(S)  revised 

ZERO-FILLED) 

ZERO-FILLED) 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NS RDCPL , I 0=CS Y S 
OBJECT 

EOITLIB  USER  LIBRARY!  NSROC 


OB/ZZ/ZZ 
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REPLLO 


1 OF 


1 


SU9R0UTINF  'RFPLNF* 


1 


PURPOSF 

REPLACE  ALL  CHARACTERS  (EXCEPT  3PECIFIE3  CHARACTER)  WITH  A 
SPECIFIED  CHARACTER 

FUNCTIONAL  CATEGORfl  ««♦ 


USAGE 

CALL  REPLNE  (A,  NA , OLD,  NEW) 


DESCRIPTION  OF  PARAMETERS 

A - ARRAY  TO  BE  PROCESSED 

NA  - NUMBER  OF  WORDS  IN  'A*  TO  BE  PROCESSED 
OLD  - OLD  CHARACTER  (IR  FORMAT) 

NEW  - new  CHARACTER  (IR  FORMAT) 

REMARKS 

ALL  parameters  ARF  TYPE  'INTEGER* 

SUBROUTINE  AND  FUNCTIONS  REQUIRED 
PART  OF  LANGUAGE 
SHIFT 
OTHERS 
NONE 


ARITHMETIC 

L91FMT 

RllQFMT 


STATEMENT  FUNCTIONS 

- FAST  L-FORMAT  DECODE  (LEFT-ADJ,  ZERO-FILLED) 

- FAST  R-FORMAT  DECODE  (RIGHT-ADJ,  ZERO-FILLED) 


LANGUAGE)  FORTRAN  IV 


CM  REQUIRED)  57B 
AUTHOR 

DAVID  V SOMMER  - DTNSTDC  CODE  1392.2 


OATE(S)  REVISED 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY)  NSRDCPL , ID=CSYS 
OBJECT 

EDITLIB  USER  LIBRARY)  NSRDC 


08/22/77 
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REPLNE 
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SUBROUTINE  ‘REQUEST* 

“U°POSE 

CALLABLE  REQUEST  FUNCTION 
'FUNCTIONAL  CATEGORY!  QJ 
LANGUAGE!  FORTRAN  IV  EXTENOED 
RENARKS 

assignment  of  EQUIPMENT  MAY  BE  REQUESTED  FROM  A RUNtJING 
CENTRAL  PROCESSOR  PROGRAM  BY  THE  REQUEST  SUBROUTINE,  RHICH 
HAS  THE  effect  of  A REQUEST  CARD. 

FOR  FURTHER  INFORMATION,  CALL 
MIKE  CHERNICK 

(?02)  227-1683  OP  IDS  150-1683  OR  AUTOVON  287-1633 


USAGE 

call  REQUEST  (IRC,  LFN,  TCOOE,  SN) 

CALL  REQUEST  (IRC,  LFN,  ICOOE) 

CALL  REQUEST  (IRC,  LFN) 


DESCRIPTION  OF  PARAMETERS 


IRC 


LFN 


ICOOE 


SN 


OUTPUT!  RIGHT- JUSTIFIED  SCOPE-GENERATED  ERROR 

RETURN  CODE 

IRC=0  - REQUEST  WAS  SUCCESSFUL 

CONTENTS  determined  BY  ICOOE 

IF  ICOCE  IS  non-zero,  LFN  IS  A 1-7  CHARACTER  LOCAL 
FILE  NAME,  L E FT - J J S T IFI E 0 , ZERO-  OR  BLANK-FILLED 
(E.G.,  5LTAPE7). 

IF  ICOOE  IS  ZERO  (OR  MISSING),  LFN  IS  AN  ARRAY 
CONSTRUCTED  AS  DESCRIBED  IN  SCOPE  REFERENCE 
MANUAL,  PAGE  12-23  ON. 

DETERMINES  CONTENTS  OF  LFN  AND  EFFECT  OF  REQUEST 

ICOOE  0 OR  MISSING  - LFN  IS  AN  ARRAY  CONTAINING 
PARAMETERS  FOR  REQUEST  MACRO 

ICOQE  = "»0",  2H*Q  OR  2L*Q  - LFN  IS  1-7  CHARACTER 
LOCAL  file  name  ANO  REQUEST  HAS  EFFECT  OF 
PEQUEST,LFN, ♦Q. 

ICOOE  ANYTHING  ELSE  - LEN  IS  1-7  CHARACTER  LOCAL 
FILE  NAME  AND  REQUEST  HAS  THE  EFFECT  OF 
REQUEST, LFN, *PF. 

OPTIONAL  SN  ('PF  ONLY) 

WHFN  USED,  IS  1-7  CHARACTER  USER  OEVICE  SET  NAME 

(HAS  effect  O'"  RE0JEST,LFN,*PF,SN=5ETNAME.) 


CM  REQUIRED!  125B 


EXAMPLES 

REQUEST , TAPEl, •PE.  BECOMES 

CALL  REQUEST  (IRC,  51TAPE1,  1) 

REQUEST, TAPE?, *Q.  BECOMES 

CALL  REQUEST  (IRC,  5LTAPE2,  "*0") 

REQUEST, TAPE  3, *PE,SN=MYSFT1.  BECOMES 

CALL  REQUEST  (IRC,  "TAPES”,  "*PE",  "MYSETl”) 


08/22/77 
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REQUEST 
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'?U'3R0UTISF  aMD  FJNCTION  SUTPROGRAMS  REQUIRED 
PART  IF  LANGUAGE 
LOCE  SHIFT 

OTHFRS 

IZONK  NUMVAR  ZPFMAC 

AUTHORS 

JAMES  BLACK,  MIKE  CHERNICK  - DTNSROC  CODE  1832 
OAVIO  V SOMMER  - DTNSROC  CODE  1092.2 

DATE  WRITTEMI  05/26/71 

□aTE(S)  REVISED 

01/10/75  - V3.5  - MC 
01/27/77  - OVS  - AGO  *0 
03/24/77  - OVS  - ADD  SN 

LOCATION  OF  DECKS 
SOURCE 

UPDATF  LIBRARY!  NS? DCPL , I D =CS YS 
OBJECT 

EDITLIB  USER  LIBRARY!  NSRDC 


0 3/25/77 
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REQUEST  - 


2 OF  2 I 

I 

J 


subroutine  'ROUTE* 


PU^PO'SF 

CflLLaSLE  ROUTE  COMMftNO 

functional  categorvi  aT 

LANGUAGE!  FORTRAN  IV  EXTENOEO  AND  COC  6000  COMPASS 
REMARKS 

THE  file  to  3E  ROUTEP  MUST  0E  ON  A QUEUE  DEVICE. 

THP  CALLING  program  MUST  CLOSE  THE  FILE  BEFORE  'ROUTE*  IS 
CALLED.  A FTN  SEQUENTIAL  FILE  (WRITE,  PRINT,  PUNCH)  1AY  3E 
"CLOSED"  BY  ISSUING  A 'REWIND  N*  BEFORE  THE  CALL  TO  'ROUTE*. 
IF  THE  file  IS  NOT  CLDSED,  THE  FINAL  BUFFER  MAY  NOT  BE 
ROUTED. 

USAGE 

CALL  ROUTE  (IRC,  TPPMS,  NW) 

CALL  ROUTE  (IRC,  IPRMS) 

OESCPIPTION  OF  PARAMETERS 

IRC  - ERROR  RETURN  CODE 

SCOPE-GENERATED 

DEC  OCT  MEANING 


1 001  INVALID  LFN  - DS® 

Z 003  cannot  ROUTE  NON-ALLOC AT  ABLE  EQUIPMENT 
T 003  CANNOT  ROUTE  PERMANENT  FILE 
I,  004  NO  PERMISSION  TO  ROUTE  THIS  FILE 

5 005  ROUTE  TO  INPUT  NOT  IMMEDIATE  - IGNORED 

6 006  IMMEDIATE  ROUTING  - NO  FILE  - IGNORED 

7 007  INVALID  DISPOSITION  CODE  - ROUTING  IGNORED 

8 010  INVALID  FID  - ROUTING  IGNORED 

9 011  DSP  ABORTED  BY  SYSTEM 

to  012  DSP  PARAMETER  OUTSIDE  FL 

11  013  PRIORITY  SPECIFICATION  IGNORED 

12  014  RESERVED 

13  015  E1200  SPECIFIED  - INTERCOM  USEO  (DSP) 

14  016  cannot  ROUTE  INPUT  FILE 

15  017  DSP  COMPLETE  BIT  ALREADY  SET 

16  020  FILE  ON  DISM0UNTA8LE  DEVICE  - ROUTING 

IGNORED 

17  021  TIO  NOT  alphanumeric  - ROUTING  IGNORED 

18  022  FOPMS  CODE  NOT  ALPHANUMERIC  - ROUTING 

IGNORED 

19  023  INVALID  LINK  TYPE  - ROUTING  IGNORED  (DSP) 

20  024  FILE  NOT  ON  QUEUE  DEVICE  - ROUTING  IGNORED 

21  025  PRE-GAYFILE  LFN  AND  NO  0C=IN  - ROUTE 

IGNORED 

22  026  PRF-DAYFILE  FILE  NOT  FOUND  - ROUTE  IGNORED 


08/22/77 
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ROUTE 
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IPRMS 


PARAMETERS  FOR  ROUTE 
IPRMS  CONTENTS 


FORMAT 


1 lfn 

2 OC 

3 TI3 

4 FID 

5 OEF 

6 

7 FC 


1- 7  CHAR,  LEFT»* 

0 FOR  DEFAULT  -OR- 

2- CHAR  DISPOSITION  CODE,  LEFT** 

0 -OR- 

ILC  - ROUTE  TO  SENTRAi.  SITE  -OR- 
2-CHAR  TERMINAL  ID,  LEFT**  -OR- 
4LHERE  - ROUTE  TO  THIS  TERMINAL 
1-7  CHAR  FILE  ID  -OR- 
IL*  -OR- 

1- 5  CHAR  FILE  ID,  PRECEDED  BY  * 
tALL  LEFT**  » 

0 -OR- 

3LDEF  - TO  defer  ROUTING  UNTIL 
END-OF- JOB 

NON-ZERO  TO  RETURN  THE  JOB  NAME  IN 
THIS  WORD 
0 -OR- 

2- CHAR  FORMS  CODE,  LEFT** 


EC 


10 

11 


IC 


STIO 

PRI 


12 


REP 


0 - USE  DEFAULT 
FOR  PRINT! 

2LB4,  2L35,  2LA6,  2LA9 
FOR  PUNCH! 

2LSB,  5L30COL,  3La26,  3L02g, 
5LASCII 
ONE  OF! 

0 OR  3LDIS  - DISPLAY  CODE 
5LASCII  - ASCII 
3LBIN  - BINARY 

3-CHAR  STATION  ID,  LEFT** 

PRIORITY 

FOR  INTERACTIVELY  ROUTED  OUTPUT 
FILE  BEING  ROUTED  TO  THE  ROUTING 
TERMINAL  - 1-4  DIGIT  OCTAl  VALUE 
( OQOO  0-77773) 

FOR  ALL  OTHER  FILES  - 0 
REPEAT  COUNT  (0-31  (379>) 


**  LEFT=LEFT-JUSTIFIED,  BLANK  OR  ZERO  PADDED 


NH  - NUMBER  OF  LAST  ELEMENT  IN  IPRMS  (OPTIONAL) 
(IF  OMITTED,  NH=12) 


CM  REOUIREDI  341B 
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ROUTE 


2 OF 


4 


FXflMPLES 

aSSU*1E  THE  PROGRAM  HAS  WRITTEN  FILE  'TAPE/'  TO  BE 
PRINTED  AT  CENTRAL  SITEI 

• • • 

INTEGER  IPRMS<12» 

• • • 

IPRMS(l)  = 5LTAPE7 
IPRMS(2)  = 2LPR 
IPRMS(3)  = ILC 
IPRHS<«*)  = IL* 

• • • 

REWIND  7 

CALL  ROUfF  (IRC,  IPRNS,  4» 


THIS  WILL  simulate  THE  FOLLOWING  ROUTE  COMMANDI 

ROUTE  , TAPE?  ,DC  = PR,Tn  = C,  FI  0=*. 

A PPOGRAM  WISHES  TO  PUNCH  FILE  'PUNCH*  AT  REMOTE 
TERMINAL  'AE*  AT  END  OF  JOB! 


• • • 

INTEGER  IPRMS(12» 

• • • 

IPRMS<1)  = 5LPUNCH 
IPRMS(2)  = 2LPJ 
IPRMS(3)  = 2LAE 
IPRM5(4)  = IL* 

IPRMStS)  = 3Lr)EF 
IPRMS<6)  = 1 
• • • 

CALL  ROUTE  (IRC,  IPRNS,  6) 

IF  (IRC  .EO.  0>  PRINT  1,  IPRMS(6» 

1 FORMAT  (“  TAPE?  WILL  BE  PRINTED  WITH  JOB  NAME  ” A?) 


THIS  WILL  SIMULATE  THE  FOLLOWING  ROUTE  COMMANDI 

route,  PUNCH,  OC  = PU,TID  = AE,  FI  0 = ‘',0EF. 

A program  creates  a 'JOB*  ON  FILE  'TAPEOg*  TO  BE  SUBMITTED 
TO  THE  same  INPUT  QUEUE  AS  THE  CREATING  JOBI 


• • • 

INTEGER  IPRfS(12) 

• • • 

IPRMSdl  = 6LTAPE99 
IPRMS(2)  = 2LIN 
IPRMS(3)  = 4LHERE 

• • • 

WRITE  (99,  1) 

99  format  (“JOPCARO"  / ••CHARGE  CARO"  / 
CALL  ROUTE  (IRC,  IPRMS,  3) 

THIS  WILL  simulate  THE  FOLLOWING  ROUTE  COMMANDI 


OS/OA/?? 


ROUTE, TAPE99,DC= IN, TIO 
2-136 
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SUB°OUTIMF  AND  FUNCTION  SUBPROGRAMS  PEQUIREO 
PAPT  OF  language 

LOOP  MAXO  MINO  MOi/LEV  SHIFT 

PART  OF  program 
NONE 
OTHERS 

BZFII.L  - CHANGE  BLANKS  TO  003 
HERE  - GFT  TERMINAL  IS  FOR  THIS  JOB 
TRAILBZ  - CHANGE  TRAILING  3LANKS  TO  003 
ZSYSEO  - CALL  THE  SYSTEM 

ARITHMETIC  STATEMENT  FUNCTIONS 

FAST  L-FORMAT  DECODE  tLEFT-AOJ,  ZERO-FILLED) 

LllFMT  L21FMT  L31FMT  L52FMT  L71FMT 

FAST  R-FORMAT  OPCODE  (RIGHT-ADJ,  ZERO-FIlLEO) 

P13FMT  R21FMT 

AUTHOP 

DAVID  V SOMMER  - OTNSROC  CODE  1832.2 
DATE  WRITTEN)  12/08/75 
OATE(S)  REVISED 

01/24/77  - ADD  REP  PARAMETER,  CHANGE  PRI  DESCRIPTION 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY)  NSRQCPL,IO=CSY3 
OBJECT 

E0ITLT3  USER  LIBRARY!  NSRDC 


05/04/77 
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SUBROUTINE  'SBrT* 
FUNCTION  *SflrT« 


PUOf’OSE 

STORF  VflPIflBLE  LENGTH  BTTE 


FUNCTION4L  CftTEGORri 


M4 


USAGE 

CA» L 5BYT  (N,  LENGTH,  INTO,  FROM) 

-OR> 

VARIABLE  = SBYT  (N,  LENGTH,  INTO,  FROM) 

DESCRIPTION  OF  PARAMETERS 

N - BEGINNING  BIT  POSITION  IN  HORO  <INTO>  WHERE  THE 

BYTE  WILL  BE  OLACEO.  BITS  ARE  NUMBERED  FROM  1 TO 
GO  F!?om  right  to  LEFT. 

length  - length  of  THE  BYTE  IN  BITS.  THIS  LENGTH  STARTS 
WITH  THE  RIGHTMOST  BIT  OF  <FROM>. 

INTO  - WORD  INTO  WHICH  THE  BYTE  WILL  BE  PLACED. 

FROM  - WORD  FROM  WHICH  THE  BYTE  WILL  BE  TAKEN  FROM  THE 

LOW  ORDER  BITS. 

NOTE!  IN  THE  SECOND  FORM,  <VARIABLE>  ANO  <INTO>  WILL 

CONTAIN  THE  SAME  VALUE.  THUS,  THEY  MAY  HAVE  THE 
same  VARIABLE  NAME. 

NOTEt  BITS  1 THRU  <LENGTH>  OF  WORD  <FROM>  ARE  PLACED  INTO 
BITS  <N>  THRU  (NfLENGTH-1)  OF  <INTO>. 

remarks 

STORES  A I TO  GO-BIT  BYTE  FROM  ONE  WORD  INTO  ANY  POSITION  IN 
A SECOND  WORD  WITHOUT  DISTURBING  THE  REMAINING  PART  OF  THAT 
WORD. 


SU3P0UTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 


EXAMPLE 


I 

r 

7777 

nil 

2222 

5556 

4i,4i»a 

J 

= 

3333 

2?22 

nil 

5555 

4<,36B 

AA 

= 

SBVT 

(37, 

6 , I , 

J) 

rfsults 

IN 

AA 

=■ 

7777 

113G 

2222 

5555 

4 4443 

I 

s 

7777 

1136 

2222 

5555 

4444B 

LANGUAGE!  COG  6000  COMPASS 
CM  REQUIRED!  ?08 
AUTHO=’.l  FROM  COC  KRONOS  SYSTEM 
date  WRITTEN! 

LOCATION  OF  DECKS 

SOURCE!  UPDATE  LIBRARY!  NS R3C PL , I D =CS Y S 

OBJECT!  FDITLIB  USFR  LIBRARY!  NSROC 


OM/2?/ Y7 


2~i 


S0YT 


1 OF  I 


SUns^OUTINE  'SEMICO* 


PURPOSE 

REPLACE  GISPLAY  CODE  003  WITH  773  (SEMI-COLON) 
'■UNCTIONAL  CATEGORYI  M4 
USAGE 

CALL  SEMICO  (lA,  I) 

DESCRIPTION  OF  PARAMETERS 

lA  - (ARRAY)  TO  BE  PROCESSED 

I - NUMBER  OF  WORDS  IN  'lA'  TO  BE  PROCESSED 

remarks 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PA^T  OF  language 
SHIFT 
OTHERS 
NONE 

ARITHMFTIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGEI  FORTRAN  IV 

CM  REQUIRED)  STB 

AUTHOR 

? - NWL 

DATE  WRITTEN!  ? 

OATE(S)  REVISED 

LOCATION  OP  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , ID=CSYS 
OBJECT 

EQITLI3  USER  LIBRARY!  NSRDC 


OA  722/77 
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SEMICO 
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PURPOSE 


USAGE 

call 

CALL 

CESCRTPTION 
REW 


•SET 

REW* 

REWI 

NO  OPT 

ION  I 

nto  RM 

OPEN 

CATEGORY! 

M4 

REW 

(REW, 

OPEN, 

CLOSE, 

NOE) 

REW 

(REW, 

OPEN, 

CLOSE) 

1 OF 

parameters 

INPUT  REWIND  OPTION. 

A - open=nopewind; 

P - OPFN=REWINO  ; 

E - OPEN=POSITION 

CL0SF=N0PEWIND 


ONE  OF t 
CLOSE=REWINO 
:lose=norewind 
BEFORE  END-OF-INFORMAT ion; 


EN 

- OPFN=POS 

ER 

- OPEN=POS 

E'J 

- OPEN=POS 

R 

- OPFN=RFW 

U 

- open=rew 

OTHER, 

- OPEN=NOR 

(ANY 

WORDS  BEGIN 

PRODUCE  THE  SAME 

OR  2 

LETTERS  ARE 

OPEN  - WILL 

CONTAIN  OPE 

CLOSE  - WILL 

CONTAIN  CLO 

NOE  - OMITTED  OR  0 - A 

OTHER 


BEFORE  EOi;  CLOS£=NORE Wl NO 
BEFORE  EOl;  CLOSE=REWIND 
before  eoi;  close=unload 

CL05E=REWIN0 
CLOSE=REWINO  and  UNLOAD 
CLOSE=NOREWlND 
ING  WITH  THESE  LETTERS  WILL 
RESULTS.  ONLY  THE  FIRST  1 
RETURNEO  IN  L-FORHAT) 

REWIND  OPTION  (ILE,  ILN,  ILR) 

E REWIND  OPTION  (ILN,  ILR,  l.U) 
LOW  ALL  VALUES  OF  REW 
- DO  not  Allow  *e*  values  of  rew 


REMARKS 

NONF 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  I ANGUAGE 
LOCF 
OTHERS 
NONE 

LANGUAGE!  FORTRAN  IV 
CM  REOUIREOl  113B 
AUTHO'» 

DAVID  V SOMMER  - DTNSRDC  CODE  1992.2 

DATE  WRITTENI  10Y29/75 

OATF<S)  REVISED 
01/29/76 

01/11/76  - ADO  'NOF*  PARAMETER 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIQPAPYI 

object 

FOITLIB  USER  HBRARYI 


NSPOCPL ,IO=CSYS 
NSRQC 


09/22/77 
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L 


SUBROUTINE  'SHIFTa* 

PURPOSE 

SHIFT  ARP4Y  SPECIFIED  NUMBER  OF  BITS  (CROS5INS  OVER  WORD 
BOUNDARIES* 

functional  CATEGORYI  M<» 

USAGE 

call  SHIFTA  ;a,  B,  N,  NBITS) 

■DESCRIPTION  OF  parameters 

A - input  array  of  dimension  ‘N* 

B - OUTPUT  array  of  DIMENSION  ‘N*!* 

(MAY  NOT  BE  same  AS  'AM 
N - NUMBER  OF  WORDS  TO  BE  PROCESSED 

NBITS  - NUMBER  OF  BITS  TO  SHIFT 
<0  - SHIFT  TO  LEFT 

(LEFTMOST  BITS  LOST,  T-<AILING  BITS  SET  TO  0, 
8(N»1)  NOT  DEFINED) 

= 0 - JUST  MOVE  (3(N«-1)  IS  SET  TO  d) 

>0  - SHIFT  TO  RIGHT 

(LEADING  AND  TRAILING  BITS  SET  TO  3) 

remarks 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRFD 
PART  OF  language 
SHIFT 
OTHERS 
NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE!  FORTRAN  IV 
CM  RFDUIREOf  IIFB 
AUTHOR 

DAVID  V SOMMER  - OTNSROC  CODE  1892.2 

DATE  WRITTENI  04/26/24 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYI  NSROCPL , I D=C S VS 
OBJECT 

EDITLIB  USER  LIBRARY!  NSROC 


0^/22/72 
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';UQ°0IITINF  ‘SKWFZL* 


PURPOSE 

SQUEEZE  LEFT  AND  REMOVE  BLANKS  AND  009 
functional  CATEGORyi  M«» 


USAGE 

CALL  SKWFZL  (A,  NA , NC , NW) 

DESCRIPTION  OF  PAPAPETEPS 

A - ARRAr  TO  BE  SQUEEZED 

(WILL  9E  WEPLACEO  BY  SQUEEZED  ARRAY) 

NA  - number  OF  WORDS  TO  BE  SQUEEZED 

NC  - OUTPUT  number  OF  CHARACTERS  IN  SQUEEZED  ARRAY 

NW  - OUTPUT  NUMBER  OF  WORDS  IN  SQUEEZED  ARRAY 

remarks 

NONE 


SUPPQUTINE  and  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
NONF 

others 

GETCHA  - EXTRACT  CHARACTER  FROM  ARRAY 
PUTCHA  - PUT  CHARACTER  INTO  ARRAY 


apithmf.tic  statement  functions 

NONE 

LANGUAGE)  FORTRAN  IV 
CM  REQUIRED)  lllB 

author 

OAVIO  V SOMMER  - DTNSRDC  CODE  1892.2 

DATE  WRITTEN)  03/19/ZG 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY)  NSROCPL , I 0=CS YS 

OBJECT 

EOITLIB  USER  LIBRARY)  NSRDC 


SU^OO'JTINF  'SKWEZR* 


PURPOSE 

SQUEEZE  PIGHT  AND  ^EMOVE  BLANKS  AND  003 
functional  CATEGORYI  M4 
USAGE 

CALL  SKWFZR  (A,  NA , NC , NW) 

DESCRIPTION  OF  PARAMETERS 

A - ARRAY  TO  aE  SQUEEZED 

(WILL  3E  REPLACED  BY  SQUEEZED  ARRAY) 

NA  - NUMBER  OF  WORDS  TO  BE  SQUEEZED 

NC  - OUTPUT  POSITION  OF  FIRST  NON-ZERO  CHARACTERS  IN 

SQUEEZED  ARRAY  (POSITION  1 IS  LEFTMOST  CHARACTER  IN 

A (1)  ) 

NW  - OUTPUT  SUOSCRTPT  OF  FIRST  NON-ZERD  WORD 

remarks 

NONE  ^ 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
NONE 
OTHERS 

GETCHA  - EXTRACT  CHARACTER  FROM  ARRAY 
PUTCHA  - PUT  CHARACTER  INTO  ARRAY 

arithmetic  STATEMENT  FUNCTIONS 
NONE 

LANGUAGFI  fortran  IV 
CM  PEQUIREDJ  115B 
A UTHOR 

DAVID  V SOMMER  - DTNSRJC  CODE  1892.2 

DATE  WRITTENI  03/19/76 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARYI  NSRDCPL , ID =CS Y S 
OBUECT 

EDITLIB  USER  LIBRARY!  NSRDC 


08 /22/77 
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SKWEZR 
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SUBROUTINE  'SNCNON* 

PURPOSE 

EVALUATE  THE  ThREE  JACOBIAN  ELLIPTIC  FJNOTIONS 
EUNCTIONAL  CATEGORY!  C3 
LANGUAGE!  FCRTPAN  IV 


REMARKS 

IF  CM=0  ANO  ABS(X)  > ( RK/PI) *5. 97E10  , 
PERIOD  OF  SN,  THE  ERROR  MESSAGE 
SNCNON  ARGUMENT  X TOO  LARGE.  X= 

IS  PRINTED  ON  FILE  'OUTPUT*. 


WHERE 


K IS  THE  QUARTER 


USAGE 


call 

SNCNON 

(X,  CM,  SN, 

CN, 

ON) 

description  of 

PARAMETERS 

X - 

INPUT  P 

ARAMETER 

CM  - 

INPUT  P 

arameter 

SN  - 

OUTPUT 

parameter  - 

WILL 

CONTAIN 

THE 

VALUE 

OF 

SN(X,K) 

CN  - 

OUTPUT 

PARAMETER  - 

WILL 

CONTAIN 

THE 

value 

OF 

CN(X,K) 

on  - 

OUTPUT 

parameter  - 

WILL 

CONTAIN 

THE 

VALUE 

OF 

ON(X,K) 

CM  OEOUIRECI  3103 


OUTPUT  UNITS 

UNIT  # LFN  use 


OUTPUT  ERROR  MESSAGE  (SEE  REMARKS) 


METHOD 

GAUSS  transformation 


REFERENCE 

BULIRSCH,  R,  "NUMERICAL  CALCULATIONS  OF  ELLIPTIC  INTEGRALS 
ANO  ELLIPTIC  FUNCTIONS",  NUMERISCHE  MATHEHATIK,  7,  1965, 
PP.  73-90 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
“ART  OF  LANGUAGE 

ABS  EXP  SIGN  SIN  SORT 

OTHERS 
NONE 


AUTHOR 

P BULIRSCH 

DATE  WRITTEN!  01/68 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

TAPE  LABELLED!  CLI3RARYUPD3 
OBJECT 

EDITLIB  USER  LIBRARY!  NSRDC 


07/25/77 
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SUBROUTINF  'SSORT' 


PURPOSF 

FTN  SHELL  SORT 


functional  CATEGORTI  Ml 


USAGE 

CALL  SSORT  (A,  I,  T) 

CALL  SSORT  (A,  I) 

DESCRIPTION  OF  PARAMETERS 
A - ARRAY  TO  BE  SORTED 
I - NiBER  OF  ELEMENTS  TO  BE  SORTED 

T - IF  PRESENT,  AN  ASSOCIATED  ARRAY  RE-OROEREO  TO  MAINTAIN 
1 TO  1 CORRESPONDENCE  WITH  THE  ELEMENTS  OF  ARRAY  'A* 

remarks 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
LOCF 
SHIFT 

others 

NONE 

APITHMFTIC  statement  functions 

NONE 

LANGUAGE!  FORTRAN  TV 
CM  REOUIREDI  11G3 

author 

C FLINK  - KPS  NWL 
DATE  WRITTEN!  12/07/70 

datf(S)  revised 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NS^DCPL , I D=CSYS 
object 

E0ITLI3  USER  LIBRARY!  NSRDC 


GB/22/77 


2-14S 


SSORT 


susoouti'ie:  'ssortt 


PURPOSE 

ETN  C4LLfl3LE  SHELL  SORT  FOR  T;<O-0IMENSIONftL  ARRArS 
FUNCTIONAL  CATEGORYI  Ml 
LANGUaGEI  FORTRAN  IV 


REMttRKC 


THIS 

ROUTINE 

IS 

INFFFI 

CIENT 

IF  M 

USAGE 

CALL 

SSORTF 

(A, 

TEMP, 

M,  N, 

I) 

CALL 

SSOPTF 

(A, 

TEMP, 

M,  N> 

□FSCRIPTION  OF 

PAPA 

METERS 

A 

- ARRAY 

TO 

BE  SORTED 

TEMP 

- TEMPORARY 

APRAY 

OE  DIMENS 

M 

- NUMBER  OF 

WORDS 

PER 

ITEM 

N 

- NUMBE 

P OF 

ITEMS 

PER 

ARRAY 

(DIME 

NSIO 

N OF  A 

IS  A 

<M,  N) 

I - IF  PRESENT,  NUMRER  FROM  1 TO 
WORO  OF  AN  ITEM  TO  SORT. 

IF  OMITTED,  1=1. 


. 10  . 


M USED  IN  THE  SORT 


M SPECIFYING  ON  WHICH 


CM  REQUIRED*  117B 


SUBROUTINE 
PART  OF 
LOCF 
OTHERS 
NONE 


AND  FUNCTION  SUBPROGRAMS  REQUIRED 
LANGUAGE 

MOVLEV  SHIFT 


A UTHOR 

C FLINK  - KPS  NWL 
□ATE  WRITTEN*  01/10/71 


OATE(S)  REVISED 
11/21/76  - 07S 


DTNSRDC  - CHANCE  SUBROUTINE  SENT  TO  MOVLEV 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  library*  NS’PCPL , I D=CSYS 
OBJECT 

EDITLIB  USER  LIBRARY*  NSRDC 


Ofl/22/77 
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SUBROUTiNir  'SSORTI* 

PURPOSE 

FTN  CALLABLE  SHELL  SORT  FOR  THO-OIHENSIONAL  ARRAYS 
FUNCTIONAL  CATEGORYI  Ml 
USAGE 

CALL  3SORTI  (A,  TEMP,  M,  N,  I» 

CALL  SSORTT  (A,  TEMP,  M,  N) 

DESCRIPTION  OF  PARAMETERS 
A - ARRAY  TO  BE  SORTED 

TEMP  - TEMPORARY  ARRAY  OF  DIMENSION  M USED  IN  THE  SORT 
M - NUMBER  OF  WORDS  =»ER  ITEM 

N - NUMBER  OF  ITEMS  PER  ARRAY 

(DIMENSION  OF  A IS  A(M,N)» 

I - IF  PRESENT,  NUMBER  FROM  1 TO  M SPECIFYING  ON  WHICH 
WORD  OF  AN  ITEM  THE  ARRAY  IS  TO  BE  SORTED. 

IF  ABSENT,  THE  ARRAY  WILL  BE  SORTED  ON  THE  FIRST 
WORD  (1=1). 

REMARKS 

THIS  ROUTINE  IS  INFFFICIFNT  IF  M .GT.  10. 

SUBROUTINE  AND  FJNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

LOCF  MOVLEV  SHIFT 

OTHERS 
NONE 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE!  FORTRAN  IV 
CM  REQUIRED!  153B 
AUTHOR 

C FLINK  - KPS  NWL 

ALBAN  P GASS  - NWL 

DAVID  V SOMMER  - DTNSROC  CODE  1892.2 
DATE  WRITTEN!  01/10/71 
DATE(S)  REVISED 

03/10/74  - APG  - CHANGE  FROM  REAL  TO  INTEGER 
06/09/76  - OVS  - CHANGE  SUBROUTINE  SENT  TO  MOVLEV 

LOCATION  OF  OECKS 
SOURCE 

UPDATP  LIBRARY!  N3RDCPL, IO=CSYS 
OBJECT 

EOITLIB  USER  LIBPARY!  NSRDC 


08/22/77 
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SUB^OUTINF  •SSO'^FL* 


PURPOSE 

FTN  LOGICAL  SHFLL  SORT 
FUNCTIONAL  CATEGORVI  Ml 
USAGE 

CALL  SSORTL  (A,  I,  M,  Ti 
CALL  SSOPTL  (A,  I,  p) 

□ESCRIPTION  OF  PARAMETERS 
A - ARRAY  TO  OF  SORTEO 

I - NUMBFR  OP  ELEMENTS  IN  ARRAY  *A'  TO  BE  SORTEO 
M - MASK  WORD  WITH  THE  RELEVANT  BITS  SET 
T - IF  PRESENT,  ASSOCIATEO  ARRAY,  RE-OROEREO  SUCH  THAT 
A(K)  STILL  RELATES  TO  T<K) 

REMARKS 

NONE 

SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
LOCF 
SHIFT 
OTHERS 
FQUPO 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGEt  FORTRAN  IV 
CM  REQUIRED:  114B 
AUTHOR 

C PLINK  - KPS  NWL 

DATE  WRITTEN!  13/03/70 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  library:  NSRDCPL , ID=CS Y 3 

OBJECT 

EDITLIB  USER  LIBRARY:  NSROC 


OA/32/77  ?-lAM  SSORTL  - 1 OF  I 


FUNCTION 


•SUNIT  » 


I 

j 

PURPOSE 

SUM  ELEMFNTS  of  real  array 
FUNCTIONAL  CATEGORYI  At 
LANGUAGEl  FORTRAN  IV 


REMARKS 

NONE 


USAGE 

ITOTAL  = SUMIT  (ARRAY,  N) 


OFSCRIPTION  OF  PARAMETERS 

SUMIT  - WILL  contain  A RR A Y ( 1 ) ♦ A RRA Y 
ARPAY  - ARRAY  TO  OE  SUMMED 
N - NUMBER  OF  ELEMENTS  OF  ARRAY 


2) ♦...♦ARRAY(N) 

TO  BE  SUMMED 


CM  REDUIREOt  16P 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 
NONE 

AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1992.2 

DATE  HRITTENI  li/23/T6 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRAPYl  NSRDCPL , ID=CSy S 

OBJECT 

EDITLIB  USER  LIBRARYI  NSRDC 
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SUBROUTINE  *r=?AILlZ* 


PURPOSE 

CHANGE  TRAILING  BLANKS  TO  ZEROS  (008) 
functional  CATEGORyi  M«» 

USAGE 

call  TPAILBZ  (A,  N) 

CALL  TRAIL3Z  (A,  N,  NW) 

call  TRAILBZ  (A,  N,  NW,  NO 

OESCPIPTION  OF  PARAMETERS 

A - ARRAY  TO  BE  PROCESSED 

N - NUMBER  OF  WORDS  OF  »A»  TO  BE  PROCESSED 
NW  - NUMBER  OF  LAST  NON-BLANK  WORD  OF  ‘A* 

(0  LE  NW  LE  N) 

(NW=0  means  all  of  'A*  IS  BLANK) 

NC  - POSITION  OF  last  NON-BLANK  CHARACTER  OF  A(NH) 

(0  LE  NC  LE  10) 

(NC=0  MEANS  ALL  OF  *A»  IS  BLANK) 

REMARKS 

003  IS  TREATED  AS  A BLANK. 

THIS  SUBROUTINE  IS  USEFUL  WHEN  GENERATING  MESSAGES  FOR 
PRINTING  IN  THF  OAYFILE  USING  'CALL  REMARK*.  AFTER 
A message  IS  GENERATED  WITH  AN  ENCODE,  A CALL  TO  'TRAILBZ* 
WILL  REMOVE  ANY  TRAILING  BLANKS.  THIS  WILL  RESULT  IN 
the  SHORTEST  POSSIBLE  MESSAGE.  THIS  IS  PARTICULARLY 
DESIRABLE  FOR  PROGRAMS  WHICH  ARE  RUN  FROM  TELETYPE, 

SINCE  trailing  blanks  are  NOT  SUPPRESSED  FOR  OAYFILE 
MESSAGES. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
LOCF 
MASK 
SHIFT 

ARITHMETIC  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE!  FORTRAN  IV 
CM  REOUIREOf  122B 
AUTHOR 

OAVIO  V SOMMFR  - NSRDC  CODE  1092.2 

OATE  WRITTENI  04/08/ZB 

nATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

TAPE  LABELLED  CSYSNSRDCPL;  P.F.  N3R0CPL , I0=CSYS 
OBJECT 

EOITLIB  USER  LIBRARYI  NSRDC 
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r ^ 

i 

I 

1 

I SU890UTIME  'UNLOAD*  | 

j PURPOSE  I 

UNLOAD  A FORTRAN  FILE 

FUNCTIONAL  CATEGORY!  Q4  | 

I 

USAGE  ! 

CALL  UNLOAD  CIOUNIT) 


DESCRIPTION  OF  PARAMETER 

lOUNIT  - FORTRAN  LOGICAL  UNIT  NUMBER 

REMARKS 

FORTRAN  SEQUENTIAL  FILES  SHOULD  HAVE  THEIR  BUFFERS  FLUSHED 
ISSUING  A REWIND  BEFORE  CALLING  THIS  ROUTINE. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 

CLUXXX  - UNLOAD  A FILE  (CALLS  SEVERAL  OTHERS) 

(WRITTEN  BY  C M CHERNICK) 

LANGUAGE!  FORTRAN  IW 

CM  REQUIRED!  21B 

AUTHOR 

DAVID  V SOMMER  - NSRDC  CODE  1892.2 
DATE  WRITTEN!  Ol/O/X/S 
DATE(S)  REVISED 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSROCPL , IO=CSYS 
OBJECT 

EDITLI9  USER  LIBRARY!  NSRDC 
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UNLOAD 


I OF  1 


FUNCTION 


•^ftLOUT* 


PURPOSE 

LOGICaL  FUNCTION  TO  VALIDATE  A DATE  FORMAT 
FUNCTIONAL  CATEGORy*  M4 
LANGUAGE!  FORTRAN  IV  EXTENDED 
REMARKS 

•VALOAT*  MUST  RE  DECLARED  LOGICAL  IN  THE  CALLING  PROGRAM. 


UPON  return,  IF  THE  FORMAT  WAS  VALID,  THE  DATE  IS  RETURNED 
AS  ' HM/Do/yy  ». 

USAGE 

VALOAT  (DATE) 

DESCRIPTION  OF  PARAMETERS 

DATE  - DATE  TO  BE  ANALYZED 

(IF  FORMAT  OK,  RETURNED  AS  * MM/OD/YY  *) 

VALOAT  - WILL  CONTAIN 

.TRUE.  - DATE  FORMAT  WAS  OK 
.FALSE.  - DATE  FORMAT  WAS  NOT  OK 

CM  REOUIREOI  16?3 

METHOD 

DATE  FORMAT  IS  VALIDATED  BY  THE  FOLLOWING  CHECKS! 

EXACTLY  2 SLASHES 

SLASHES  SEPARATED  BY  1 OR  2 CHARACTERS 

SLASHES  NOT  IN  POSITIONS  1,  9 OR  10 

MONTH  contains  1 OR  2 DIGITS  (LEADING  BLANKS  OK) 

DAY  CONTAINS  1 OR  2 DIGITS  (LEADING  BLANKS  OK) 

YEAR  CONTAINS  2 DIGITS 
VALOAT  RETURNS  IF  ANY  CHECK  FAILS. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 

AND  OR  SHIFT 

OTHERS 
NONE 

AUTHOR 

DAVID  V SOMMER  - OTNSRDC  CODE  1992.2 

OATF  WRITTEN!  07/26/77 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , ID =CS YS 

OBUFCT 

EQITLI8  USER  LIBRARY!  NSROC 


07/26/77 
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SU^^OUTINF  'l/ALiaT 


PURPOSE 

VALIDATE  AORAY  'A*  TO  SEE  THAT  EACH  ELEMENT  IS  ONE  OF  THOSE 
OF  array  'V* 

FUNCTIONAL  CATFGOPYI  MS 
LANGUAGEI  FORTRAN  IW  EXTENDED 

remarks 

NONE 


usage 

CALL  VALIDT  (A,  NA,  V,  NV,  VALID) 

DESCRIPTION  OF  PARAMETERS 

A - ARRAY  TO  BE  VALIDATED 

NA  - number  of  ELEMENTS  OF  'A*  TO  BE  TESTED 
V - ARRAY  OF  VALID  ELEMENTS 

NV  - NUMBER  OF  FLFMENTS  IN  'V' 

VALID  - LOGICAL  OUTPUT  CODE 

TRUE  - ALL  ELEMENTS  OF  'A*  ARE  VALID 
FALSE  - AT  LEAST  1 ELEMENT  OF  'A*  IS  INVALID 

CM  PEOUIREDI  5«*B 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 
NONE 


AUTHOR 

OAVID  V SOMMER  - OTNSROC  CODE  1892.2 

OATF  WRITTEN*  10X72 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY*  NSROCPL , I D=CSYS 
OBJFCr 

editlib  user  library*  NSRDC 


08/23/77 


2-1S3 


VALID! 


I OF 


5URP0UTINE  ’VFILL* 


PURPOSE 

FILL  4N  ARRAY  WITH  USER- SPECIFI EO  WORD 
FUNCTIONAL  CATEGORY!  M4 
USAGE 

CALL  YFTLL  (WORD,  A,  NA) 

DESCRIPTION  OF  PARAMETERS 

WORD  - WORD  TO  8E  PUT  INTO  ARRAY  'A* 

A - ARRAY  TO  RECEIVE  'WORD* 

NA  - NUMBER  OF  WORDS  IN  »A*  TO  BE  SET  TO  ‘WORD* 

REMARKS 

NONE 

SUBROUTINE  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 

others 

NONE 

LANGUAGE!  CDC  6000  COMPASS 

CM  REQUIRED!  ?B 

AUTHOR 

C FLINK  - KPS  NWL 
DATE  WRITTEN!  02/10/71 
OATE(S)  REVISED 

1974  - DAVID  V SOMMER  - DTNSRDC  CODE  1S92.2 
(NAME  CHANGED  FROM  'MOVE*  TO  ‘VFILL*) 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL,  IO=CSYS 
OBJECT 

E0ITLI8  USER  LIBRARY!  NSROC 
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SUBROUTIr^E  'HEKDAy* 


OUOPOSE 

determine  the  day  of  the  keek  for  Any  Gregorian  date  from 

OCTOBER  15,  15«2  THRU  FEBRUARY  2%,  4000 


FUNCTIONAL  CATEGORYI 


M2 


USAGE 

call  i^EKDAY  (IERR,  ICAY,  IGY,  IGM,  IGD) 

DESCRIPTION  OF  PARAMETERS 
IEPR  - RETURN  CODE 

0 - NO  error 

1 - AT  LEAST  ONE  OF  IGY,  IGM,  IGO  OUT  OF  RANGE 
lOAY  - WILL  CONTAIN  OAY-OF-WEEK 

0 (SUNOAY)  THRU  & (SATURDAY) 

IGY  - GREGORIAN  YEAR  (EG,  1975) 

IGM  - GREGORIAN  MONTH  (1-12) 

IGO  - GREGORIAN  DAY  (1-31) 

remarks 

DATES  FROM  JANUARY  1,  1582  THRU  OCTOBER  14,  1532  AND 
AFTER  FEBRUARY  28,  4000  THRU  DECEMBER  31,  4000  ARE  NOT 
YALIOATEO. 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
MOD 
OTHERS 
NONE 

arithmetic  STATEMENT  FUNCTIONS 
NONE 

LANGUAGE!  FORTRAN  IV 
METHOD 

SEE  IBM  PROGRAM  DESCRIPTION  360D  03.1.004 
CM  REQUIRED!  102B 
AUTHOR 

RICHARD  CONNER  - IBM 
DATE  WRITTEN!  10/15/66 


DATE(S)  REVISED 

34/26/73  - REWRITTEN  IN  FORTRAN  fqR  COC  6000 


OYS 


LOCATION  OF  DECKS 
SOURCE 

TAPE  LABELLED  CSYSNSRDCPL; 
OBJECT 

EDITLI8  USER  LIBRARY!  NSROS 


P.F.  NSROCPL, IO=CSY3 
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FUNCTION 


*XOR  • 


1 


PURPOSE 

FXCLUSH/F  OR 

PUNf:TION(\L  OATEGORYI  R1  AO 
LANGUAGE!  FORTRAN  IV  FXTENOED 
REMARKS 

simulates  I .XOR.  J 
JSAGF 

K = XOR  (I,  J) 

OESCRIPTION  OF  PARAMETERS 

I,J  - SIMPLE  VARIABLES  TO  RE  XOR'EO  TOGETHER 

- (INTEGER)  WILL  RETURN  THE  RESULT  OF  I .XOR.  J 

OM  REQUIRED!  143 

SUBROUTINE  AND  FUNCTION  SUBPPOGRAMS  REQUIRED 
PART  OF  LANGUAGE 

and  or 

OTHERS 

NONE 

METHOD 

XOR  = (I  .AND.  .NOT.  J)  .OR.  (.NOT.  I .AND.  J) 

author 

DATE  WRITTEN!  06/23X77 

OATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NS RDCPL , I D=CSY S 

OBJECT 

FDITLI3  USER  LIORARYJ  NSROC 


06/22/77 
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XOR 


I 
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SUB90UTINF  'ZBLaNK* 


PURPOSE 

chinge  bunks  to  oob  ano  vice  versa 

FUNCTIONAL  CATEGORYI  MA 


USAGE 

CALL  ZBl ANK  (A,  NA) 


description  Of  PARAMETERS 

A - START  OF  AREA  TO  BE  PROCESSED 
NA  - NUMBER  OF  WORDS  TO  BE  PROCESSED 


REMARKS 

NONE 


SUBROUTINE 
PART  OF 
AND 
OTHERS 
NONE 


ANO  function  SUBPROGRAMS  REQUIRED 

language 


arithmetic  statement  functions 

NONE 


languagfi  fortran  IV 


CM  REQUIREOt  46B 


author 

J.  P.  - KPS  - NWL 

DATE  WRITTENI  19Z3 

OATE(SJ  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY!  NSRDCPL , I 0=CSYS 
OBJECT 

EDITLIB  USER  LIBRARY!  NSROC 


OF/oq/7B 


Z-ISZ 


ZBL ANK 


SUB^OUTI'lE  'ZEROFL' 

PURPOSE 

ZERO  FIELO  LENGTH  (SECURITY  EOJI 
FUNCTIONAL  CATEGORYI 
USAGE 

CALL  ZFROFL 


REMARKS 


•7ER0FL'  ZPROS  THE  JOB'S  FIELD  LENGT 
THE  JOB  WITHOUT  DAYFILE  MESSAGES. 

THE  INTENDED  USE  IS  AS  THE  TERMINATI 
REPRIEVE,  WHENEVER  A UTILITY  PROGRAM 
LENGTH  DATA  THAT  SHOULD  NOT  APPEAR  I 


H ABOVE  778  AND  ENOS 


ON  ROUTINE,  CALLED  BY 
HAS  WITHIN  ITS  FIELD 
N A USER'S  DUMP. 


SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 
NONE 


LANGUAGEt  COG  6000  COMPASS 

CM  REQUIREOl  21B 

AUTHOR 

C FLINK  - KP  NWL 

DATE  WRITTEN!  08/73 

OATE(SJ  REVISED 

LOCATION  OF  DFCKS 
SOURCE 


IJCOA 


OBJECT 

EDIT 


TF  LIBRARYI  NSROCPL , I 0=CS YS 
LIB  USER  LIBRARY!  NSRDC 


' 7 7 


2-IS9 


ZEROFL 
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^UaPOUTINE  'ZEROS' 

SU9ROUTI^4E  'ZEROES' 

PURPOSE 

REPLACE  PLANKS  WITH  (OISPLAY  CODE)  ZEROS,  MULTIPLE  FIELDS 
FUNCTIONAL  CATEGORYl  M4 
USAGE 

CALL  ZEROS  (A,  SI,  LI,  S2,  L2,  ...,  SN,  LN) 

CALL  ZEROES  (A,  SI,  LI,  S2,  L2,  SN,  LN) 

DESCRIPTION  OF  PARAMETERS 
A - ARRAY  TO  3E  PROCESSED 
S - STARTING  BYTE  OF  A FIELD 

(BYTE  COUNT  BEGINS  WITH  1 FOR  THE  LEFTMOST  BYTE  IN  'A') 
L - NUMBER  OF  BYTES  IN  THIS  FIELD  TO  PROCESS 

(UP  TO  31  PAIRS  OF  31, LI) 

REMARKS 

'ZEROS'  WILL  REPLACE  BLANKS  WITH  ZEROS  UP  TO  THE  1ST 
NON-BLANK  CHARACTER  IN  A GIVEN  FIELD. 

IF  THE  1ST  non-blank  CHARACTER  IS  MINUS  (-),  THEN  THAT 
CHARACTER  POSITION  IS  REPLACES  WITH  A ZERO  AND  THE  IST 
CHARACTER  IN  THE  FIELD  IS  REPACED  WITH  A MINUS  (-). 

SUBROUTINE  And  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
NONE 
OTHERS 
NONE 

.ANGUAGEI  CDC  6000  COMPASS 

CM  REQUIRED)  55B 

AUTHOR 

T HERRING  - KPS  NWL 

DATE  WRITTEN)  12/09/Z0 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY)  NSRDCPL , 1 0 = CS YS 

OBJECT 

EDITLIB  USER  LIBRARY)  NSRDC 


SUaoOUTINE  'ZPFPJT* 

PURPOSE 

PUT  USER-SPECIFIEO  PARAHETERS  INTO  ARRAY  FOR  LATEP  CALL  TO 
ZPFUNC 

FUNCTIONAi  OATEGORYI  QO 


USAGE 


CALL 

ZPEPUT 

(IPPMS  , 

NW) 

CALL 

ZPFPJT 

(IPRMS, 

NW, 

lEN, 

’FN,  ID,  TK,  RD,  EX,  MO,  CN, 

MR,  AC, 

CY 

, RP, 

XR,  LC,  RW,  SN,  VS,  FO,  ST) 

FOR  1 

EXAMPLE* 

call 

ZPEPUT 

(IPRMS, 

3) 

CALL 

ZPFPUT 

(IPRMS, 

1, 

LFN) 

call 

ZPEPUT 

(IPRMS, 

5, 

LFN, 

PEN) 

CALL 

ZPFPUT 

(IPRMS  , 

6, 

LFN, 

PEN,  TO) 

• 

CALL 

• • 

ZPEPUT 

(IPRMS, 

13, 

LEN, 

PFN,  id,  TK,  RO,  EX,  MD,  CN, 

MR,  AC) 

• 

CALL 

• • 

ZPEPUT 

(IPRMS, 

22, 

LFN, 

pen,  id,  TK,  RO,  EX,  MD,  CN, 

MR,  AC, 

CY 

, RP, 

XR,  LC,  RW,  SN,  VS,  FO,  ST) 

OESCRTPTION  OF  PARAMETERS 

IPRMS  - ARRAY  (MAXIMUM  REQUIRED  DIMENSION  22)  TO  BE  DEFINED 

NM  - 0 - SET  ALL  22  WORDS  TO  ZERO 

1 THRU  ZZ  - DEFINE  NW  PARAMETERS  FROM  THE  FOLLOWING 
LFN  - LOCAL  FILE  NAME  (1-Z  CHARACTERS) 

PEN  - 4-WORO  permanent  FILE  NAME 

ID  - 1-9  CHARACTERS 

TK  - TURNKEY  PASSWORD  (1-9  CHARACTERS) 

RO  - READ  PASSWORD  (1-9  CHARACTERS) 

EX  - EXTEND  PASSWORD  (1-9  CHARACTERS) 

MO  - MODIFY  PASSWORD  (1-9  CHARACTERS) 

CN  - CONTROL  PASSWORD  (1-9  CHARACTERS) 

MR  - MULTIPLE-READ  (0  OR  NOT) 

AC  - ACCOUNT  NUMBER  (10  CHARACTERS,  LAST  IS  NUMERIC) 

CY  - CYCLE  (INTEGER  -999  TO  -1,  1 TO  999) 

RP  - RETENTION  PERIOD  (INTEGER  0-999) 

XR  - READ-ONLY  PASSWORD  (1-9  CHARACTERS) 

LC  - LOWEST  CYCLE  (0  OR  NOT) 

RW  - MULTI-READ,  SINGLE  WRITE  (0  OR  NOT) 

SN  - SETNAMF  (1-7  CHARACTERS) 

VS  - VOLUME  SERIAL  NUMBER  (1-7  CHARACTERS, 

LEFT-JUSTIFIED).  RESERVED  FOR  FUTURE. 

FO  - FILE  ORGANIZATION  (2-CHARACTERS) 

ST  - STATION  ID  (MULTI-FRAME) 

RESERVED  FOR  FUTURE. 

NOTE!  all  VARIABLES  ARE  TYPE  INTEGER.  CHARACTER  DATA  IS 
left-justified  and  may  3p  zero-  OR  BLANK-PADDED. 

TO  clear  (OR  OMIT)  A SPECIFIC  PARAMETER,  USE  0. 
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ZPEPUT 
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REMARKS 

NOME 


0 U/2^/7h 


SUBROUTINE  AND  EUNCTION  SUBPROGRAMS  REQUIRED 
PACT  OF  language 
MINO  MOVLEtf 

others 

NONE 

ARITHMETIC  statement  FUNCTIONS 
NONE 

LANGUAGEI  FORTRAN  IV 
CM  '’EQUIREO;  1483 
AUTHOR 

OAVIO  V SOMMER  - OTNSROC  CODE  1892.2 


I 

< 

5 


DATE  WRITTEN*  01/13/7ft 

DATE(S)  REVISED 
01/23/76 


LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIPRAPYt  NSROCPL , I D=CSYS 
OBJECT 

FDITLI3  USER  LIBRARY*  NSROC 
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SUO)?OUTI>^F  'ZPFUNC* 


r 


PUPPOSE 

CflLLA3LE  permanent  FILE  FUNCTIONS 
USAGE 

call  ZPFUNC  (IRC,  IPPMS,  NWI 

OESCRIPTION  OP  PARAMETERS 

IRC  - INPUTI  PERMANENT  FILE  FUNCTION  DESIRED 
1 - ATTACH 
Z - CATALOG 

3 - EXTEND 

4 - PURGE 

5 - RENAME 

6 - PERM 

OUTPUTI  ERROR  RETURN  CODE 

(EITHER  ZPFUNC-  OR  SCOPE-GENERATED) 

ZPFUNC-GENERATEO 
IRC  MEANING 


-I  IPC  HAD  ILLEGAL  INPUT  VALUE 
-2  LAST  CHARACTER  OF  AC  IS  NOT  DISPLAY  CODE 
NUMERIC 


SCOPE- 

GENERATED 

DEC 

OCT 

CONNO 

MEANING 

0 

000 

ALL 

FUNCTION  SUCCESSFUL 

1 

001 

13  ERROR 

2 

002 

A,P 

lfn  already  in  use 

3 

003 

CEPR 

UNKNOWN  LFN 

4 

004 

C 

TOO  MANY  CYCLES  (5  MAX) 

5 

005 

C,E 

PF  CATALOG  FULL 

6 

006 

NO  LFN  OP  PFN 

8 

010 

C,E 

LATEST  INDEX  NOT  WRITTEN 

9 

Oil 

C 

FILE  NOT  ON  A PF  DEVICE 

10 

012 

A 

FILE  NOT  IN  SYSTEM 

11 

013 

A 

ARCHIVE  RETRIEVAL  ABORTED 

12 

014 

C,R 

INVALID  CYCLE  NUMBER 

13 

015 

C 

CY  LIMIT  REACHED  (999  MAX) 

14 

016 

C 

PF  DIRECTORY  FULL 

15 

017 

CEPR 

function  attempted  on  a 

NON-PERMANENT  FILE 

16 

020 

FCN  ATTEMPTED  ON  NON-LOCAL  FILE 

18 

022 

C 

FILE  NEVER  ASSIGN  TO  A DEVICE 

19 

023 

A 

CYCLE  INCOMPLETE  OR  DUMPED 

20 

024 

A 

FILE  ALREADY  ATTACHED 

21 

025 

A 

FILE  UNAVAILABLE 

23 

027 

ILLEGAL  lfn 

24 

030 

A 

FILE  DUMPED 

27 

033 

ALTER  NEEDS  EXCLUSIVE  ACCESS 

29 

035 

C 

FILE  ALREADY  IN  SYSTEM 

56 

070 

PFM  STOPPED  BY  SYSTEM 

57 

071 

SECURITY  VIOLATION 

58 

072 

FILE  DEFINITION  BLOCK  ADDRESS 

r 
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r 


IPRMS 


* 

NW 

REMARKS 

NONE 


PARAMETERS  FOR  PF  FUNCTION 


lesas 

CQtJlEtJiS 

EQSHai 

1 

LFN 

ALL 

1-7  CHAR,  LEFT* 

(IF  0,  1ST  7 CHAR  OF  PFN 
ARE  USED  (A,C,P) 

2-5 

PFN 

A,C,P,R 

1-40  CHAR,  LEFT 

6 

ID 

A t C f P j R 

1-9  CHAR,  LEFT 

7 

TK 

1-9  CHAR,  LEFT 

9 

RO 

1-9  CHAR,  LEFT 

q 

EX 

1-9  CHAR,  LEFT 

10 

MO 

1-9  CHAR,  LEFT 

11 

CN 

♦ ♦ j ♦♦♦ 

1-9  CHAR,  LEFT 

12 

MR 

A,C 

0 OR  NOT 

13 

AC 

CfR**** 

10  CHAR  (LAST  IS  NUMERIC 

14 

cv 

A > C j P > R 

INTEGER  (1-999) 

NEGATIVE  TO  RETURN  VALUE 

15 

RP 

C,R 

INTEGER  (0-999) 

16 

XR 

C,R 

1-9  CHAR,  LEFT 

17 

LC 

A,P 

0 OR  NOT 

16 

RW 

A,C 

0 OR  NOT 

19 

SN 

A,P 

1-7  CHAR,  LEFT 

20 

vs 

VOLUME  SERIAL  NUMBER 
(RESERVED  FOR  FUTURE) 

21 

FO 

C 

2-CHAR,  LEFT 
(DA,  IS,  AK) 

22 

ST 

STATION  ID  (MULTI-FRAME) 
(RESERVED  FOR  FUTURE) 

a=attach;  c=catalog;  p=purge;  r=rename; 

LEFT=LEFT-JUSriFrED,  3LAN<  OR  ZERO  PAOOEO 
FOR  A,P,  INTERPRETED  AS  SU3MITTE0  PASSWORD 
FOR  C,  USED  AS  BOTH  DEFINITION  AND  SUBMITTED  PW 
FOR  R,  WHEN  SET  TO  t,  THE  PASSWORD  IS  CLEARED 

FOR  C»  WHEN  OMITTED,  AC  IS  TAKEN  FROM  CHARGE  CARO 

OR  LOGIN 

NUMBER  OF  LAST  FILLED  ELEMENT  IN  IPRMS  (OPTIONAL) 
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r 

i; 


SUBROUTIME  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
AND  SHIFT 

OTHERS 

IZPF3TZ 

IZRT9ZR 

NUMVAR 

ZPFMAC 

Z^FPSW 

DM  REQUIRED!  4U53 
AUTHOR 

C M CHERNIDK  - NSROD  CODE  1032 

DATE  WRITTEN*  01/Z5 

DATE(S)  REVISED 

05/75  01/02/76 

LANGUAGE*  FORTRAN  IV  EXTENOFO 

FUNCTIONAL  CATEGORY*  Q3 

LOCATION  OF  DECKS 
SOURCE 

CODE  1332 
OBJECT 

EDITLIB  USER  LIBRARY*  NSROD 
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ZPFUNC 


3 OF 


(EXAMPLE 


PPOSPAM  TEST  (INPUT,  OUTPUT,  T A»E5= I NPU T , TAPE6=0UTPUT 
DIMENSION  IPRMS(22) 

DATA  LFN  t 6LMYFILE/ 

DATA  ID  / 4LCXKX/ 

DATA  IPFNl,  IPFN2/  lOHPERM ANENTF,  3LILE/ 

DATA  lAO  / 10H0976543210/  (SEE  NOTE  BELOW) 

DATA  IPW  / 8LPASSWORD/ 


DO  10  1=1,22 
10  IPPMS(I)  = 0 
IPPMS(  1)  = LFN 
IPPMS(  2)  = IPFNl 
IPPMS(  3)  = IPFN2 
IPPMS(  6)  = ID 
IPPMS(  7)  = IPW 

IP°HS(13)  = lAC  (SEE  NOTE  BELOW) 

IRC  = 2 
NW  = 13 

CALL  ZPFUNC  (IPC,  IPRMS,  NW) 

IF  (IRC  .NE.  0)  WRITE  (6,  20)  IRC,  IRC 
23  FORMAT  (•OFRROP  - IRC=*  17,  ♦OR  * 03,  ♦B*) 


STOP 

END 

THIS  PROGRAM  IS  EQUIVALENT  IN  EFFECT  TO  THE  FOLLOWING 
CONTROL  CARDS) 

C AT ALOG (MYFILE, PERM ANENT FILE, ID=CXXX, AC= 9876543210, 
PW=PASSWORD) 

FOR  A NEW  CYCLE  OF  AN  EXISTING  FILE; 

CAT A LOG (M VFI LE,PEPMANENTFILE,ID  = C XX X,AC  = 98 76543210, 

Ti<  = PASSWORO) 

FOR  THE  CREATION  OF  A NEW  FILE, 

NOTE)  IF  THESE  TWO  LINES  ARE  OMITTED  (THAT  IS,  AC  IS 

ZERO),  AC  HILL  BE  TAKEN  FROM  THE  BATCH  CHARGE  CARD 
OP  THE  INTERCOM  LOGIN. 
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SUBPOJTINE  'ZRTPJT* 


PURPOSE 

RUT  USER-SPECIFIED  PARft'iFTERS  INTO  ARRAY  FOR  LATER  CALL  TO 
ROUTE 

FUNCTIONAL  CATEGORYI  QO 

USAGE 

CALL  ZRTPUT  <IPRMS,  NW) 

CALL  ZRTPUT  (IPRHS,  NM,  LFN,  DC,  TID,  FID,  OEF,  RETJ03,  FC, 
EC,  IC,  STID,  PRI,  REP) 

FOR  EXAMPLE) 

CALL  ZRTPUT  (IPRMS,  0) 

CALL  ZRTPUT  (IPRMS,  1,  LFN) 

CALL  ZRTPUT  (IPRMS,  2,  LFN,  DC) 

• • • 

CALL  ZRTPUT  (IPRMS,  12,  LFN,  DC,  TID,  FID,  OEF,  RETJ03,  FC, 
EC,  IC,  STID,  PRI,  REP) 

DESCRIPTION  OF  PARAMETERS 

IPRMS  - ARRAY  (MAXIMUM  REQUIRED  DIMENSION  12)  TO  BE  DEFINED 

NW  - 0 - SET  ALL  1?  WORDS  TO  ZERO 

1 THRU  12  - DEFINE  NW  PARAMETERS  FROM  THE  FOLLOWING 
LFN  - LOCAL  FILE  NAME  (1-7  CHARACTERS) 

DC  - DISPOSITION  CODE  (2  CHARACTERS) 

TID  - TERMINAL  IDENTIFICATION 

ILC  - CENTRAL  SITE 
2-CHARACTER  TERMINAL  ID 
4LHERE  - ROUTE  TO  THIS  TERMINAL 
FID  - FILF  IDENTIFICATION 
IL*  -OR- 

1-5  CHARACTER  FILE  ID,  PRECEDED  BY  ♦ 

OEF  - .TLOEF  - DEFER  ROUTE  UNTIL  END  OF  JOB 
RETJOD  - NON-ZFRO  TO  RETURN  JOB  NAME  IN  THIS  WORD 
- FORMS  CODE  (2  CHARACTERS) 

EC  - EXTERNAL  CHARACTERISTICS 

FOR  PRINT) 

2LB<,,  2LB6,  2LA6,  2LA9 
FOR  PUNCH) 

2LSB,  5L80COL,  3L026,  3L029,  5LASCII 
IC  - INTERNAL  CHARACTERISTICS 

0 OR  3L0IS  - DISPLAY  CODE 
5LASCII  - ASCII 
3LBIN  - BINARY 

STID  - 3-CHARACTER  STATION  ID  (RESERVED  FOR  FUTURE) 

PRI  - PRIORITY  (TO  ROUTING  TERMINAL  ONLY) 

( 0000B-7777B) 

ALL  OTHERS  USE  0 

REP  - REPEAT  COUNT  (0-31  (37B)) 

NOTE)  ALL  VARIABLES  ARE  TYPE  INTEGER.  CHARACTER  DATA  IS 
LEFT-JUSTIFIED  AND  ZERO-PADDED. 

TO  CLEAR  (OR  OMIT)  A SPECIFIC  PARAMETER,  USE  0. 

REMARKS 

NONE 


SUBROUTINE  fiNO  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  language 
NINO  MOVLEW 

OTHERS 
NONE 

arithmetic  statement  FUNCTIONS 
NONE 

LANGUAGEl  FORTRAN  IV  EXTENDED 

CM  REQUIRED*  766 

AUTHOR 

DAVID  V SOMMER  - DTNSRDC  CODE  1992.2 

DATA  WRITTEN!  01/19/76 

OATE(S)  REVISED 

01/2‘»/77  - ADD  REP  PARAMETER 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY* 

OBJECT 

EDITLIB  USER  LIBRARY* 


NSRDCPL,ID=CSYS 
NSROD 


01/2A/77 
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SUBROUTISF  'ZSYSEQ* 

PURPOSE 

FORTRAN  CftLLA3LE  SYSTEM  CALL 
functional  CATEGORYI  03 
USAGE 

call  ZSYSEQ  (I) 
cfscription  of  parameter 

I - THE  contents  OF  I ARE  PUT  INTO  X6  BEFORE  THE  SYSTEM 
IS  called 

example 

call  system  routine  OSP  with  parameters  contained  in  'AM 

call  ZSYSEQ  ( ALOSPP  + LOCF(A)  » 

NOTE*  THE  P AFTER  OSP  IS  THE  RECALL  BIT.  IF  NO  RECALL 
REQUIRED,  THEN* 

CALL  ZSYSEQ  ( 3LDSP«-L0CF  ( 1)  ) 


REMARKS 

NONE 

SUBROUTINE  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
PART  OF  LANGUAGE 
NONE 
OTHERS 
SYS  = 

language*  CDC  6000  COMPASS 
CM  REQUIRED*  48 

author 

C M CHERNICK  - DTNSRDC  CODE  1832 

DATE  WRITTEN*  04/Q7/75 

DATE(S)  REVISED 

LOCATION  OF  DECKS 
SOURCE 

UPDATE  LIBRARY*  NSROCPL, IO=CSYS 
OBJECT 

EDITLIB  USER  LIBRARY*  NSROC 


08 /22/77 
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DTMSRDC  ISSUES  THREE  TYPES  OF  REPORTS 


1.  DTNSRDC  REPORTS,  A FORMAL  SERIES,  CONTAIN  INFORMATION  OF  PERMANENT  TECH- 
NICAL VALUE.  THEY  CARRY  A CONSECUTIVE  NUMERICAL  IDENTIFICATION  REGARDLESS  OF 
THEIR  CLASSIFICATION  OR  THE  ORIGINATING  DEPARTMENT. 

2.  DEPARTMENTAL  REPORTS,  A SEMIFORMAL  SERIES,  CONTAIN  INFORMATION  OF  A PRELIM 
INARY,  TEMPORARY,  OR  PROPRIETARY  NATURE  OR  OF  LIMITED  INTEREST  OR  SIGNIFICANCE. 
THEY  CARRY  A DEPARTMENTAL  ALPHANUMERICAL  IDENTIFICATION. 

3.  TECHNICAL  MEMORANDA.  AN  INFORMAL  SERIES,  CONTAIN  TECHNICAL  DOCUMENTATION 
OF  LIMITED  USE  AND  INTEREST,  THEY  ARE  PRIMARILY  WORKING  PAPERS  INTENDED  FOR  IN- 
TERNAL USE.  THEY  CARRY  AN  IDENTIFYING  NUMBER  WHICH  INDICATES  THEIR  TYPE  AND  THE 
NUMERICAL  CODE  OF  THE  ORIGINATING  DEPARTMENT,  ANY  DISTRIBUTION  OUTSIDE  DTNSRDC 
MUST  BE  APPROVED  BY  THE  HEAD  OF  THE  ORIGINATING  DEPARTMENT  ON  A CASE  BY  CASE 
BASIS. 


